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SECTION  I 

MANUSCRIPT  PRINTING 


Introduction 


ROFF  is  a  Fortran  program  for  producing  high  quality 
printed  documents  with  the  computer.  ROFF  operates  on  an 
input  deck  of  alphabetic  text,  produced  on  an  ordinary  029 
keypunch,  and  produces  a  printed  copy  in  manuscript  form. 
Since  the  C29  keypunches  do  not  have  any  direct  provision 
for  entering  loner  case  letters,  all  input  to  ROFF  is  upper 
case;  ROFF  changes  upper  case  letters  into  lower  case  when 
appropriate.  For  example,  all  the  letters  in  any  sentence 
are  converted  to  lower  case,  with  the  exception  of  the  first 
one.  The  conversion  may  be  overridden  by  means  of  special 
"escape”  characters  which  control  the  mapping,  but  do  not 
appear  in  the  output.  These  are  discussed  below. 

The  output  is  formatted  as  the  user  wishes.  He  is  able 
to  start  pages  or  paragraphs  at  will,  produce  blank  lines, 
cause  margins  to  be  placed  on  the  right  side  of  the  page, 
change  the  line  length  and  indenting,  and  other  functions  of 
this  sort.  Footnotes  may  be  indicated,  entered,  and 
automatically  numbered;  they  are  printed  at  the  bottom  of 
the  current  page. 

These  operations  are  all  handled  by  "control  words" 
which  the  user  inserts  in  his  output  deck  at  the  appropriate 
points . 

Description 

ROFF  is  a  program  which  generates  microfilm  and  7-track 
binary  magnetic  tape  for  off  line  processing  on  an  IBM 
Magnetic  Tape  /  Selectric  Typewriter  (MT/ST)  of  arbitrary 
text  in  manuscript  format.  By  the  use  of  control  words 
placed  in  the  input  text  data  set,  the  user  may  control  the 
format  of  the  document  produced.  Text  data  sets  are  card 
decks  punched  in  EBCDIC  as  described  below.  Provisions  are 
Included  for  automatic  lowercase  letters,  right  margins  on 
pages,  page  numbering  (if  desired)  and  numerous  other 
formatting  features. 
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Character  mapping 

Input  to  ROFF  is  a  card  deck,  generally  of  upper  case 
letters  and  punctuation.  The  contents  of  the  input  deck  are 
converted  to  lower  case  as  follows: 

1.  The  first  letter  on  each  sentence  is  left  in  upper 
case.  All  other  letters  are  set  to  lower  case.  A 
sentence  is  defined  to  be  a  set  of  characters  ending  in 
an  end-of-sentence  mark  (.,  !,  ?,  followed  by  an 
optional  ),  ],  ",  * ,  footnote  indicator  (0-8-2),  or 
reference  indicator  (9-1))  and  the  end  of  a  card  or  two 
blanks . 


1 

I 


2.  Upper  case  can  be  forced  for  the  next  alphabetic  | 
character  encountered  (A-Z  only)  by  inserting  a  cent  | 
sign  (  )  anywhere  before  the  letter.  Thus  to  | 
capitalize  a  proper  name  in  the  middle  of  a  sentence:  % 

I 

INPUT:  IT  IS  A  NICE  DAY  IN  ^PRINCETON  1 
OUTPUT:  It  is  a  nice  day  in  Princeton  | 

The  cent  sign  evaporates  leaving  no  space  in  the  ,  I 
output.  The  cent  sign  carries  over  all  non-alphabetic  | 
characters .  1 

3.  Lower  case  may  be  forced  at  the  beginning  of  a  | 
sentence  by  using  a  dollar  sign  (  $  ).  1 

4.  An  entire  string  of  characters  can  be  capitalized  J 
by  preceding  it  with  a  circumflex  (  “  )  .  The  effect  of  §j 
the  circumflex  is  terminated  by  the  next  blank  I 
character  in  the  input  or  by  another  circumflex.  I 


5.  Any  string  of  characters  can  be  underlined  by  a 

preceding  it  with  an  underscore  (  ) .  The  effect  of  | 

the  underscore  is  terminated  By  the  next  blank  | 

character  in  the  input  or  by  another  underscore.  | 

6.  Arbitrary  strikeovers  may  be  created  by  using  the  | 

at-sign  (  0  );  the  at  is  roughly  equivalent  to  the  § 

backspace  key  on  a  regular  typewriter.  For  example  to  | 

make  a  not  equal  sign,  use  =  0/  to  produce  If  a  | 

sequence  is  to  be  overstruck,  place  all  the  at -signs  % 

together.  No  mapping  of  the  overstriking  characters  .  | 

occurs;  control  characters  except  for  0  and  — i  are  1 

printed  in  this  instance.  | 

$• 

f  | 

2  | 

4 

% 
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7.  Any  percent  sign  (  %  )  in  the  input  is  treated  as 
a  non-blank  character,  but  vanishes  on  output.  This  is 
often  useful  as  a  place  holder:  if  the  space  between 
two  words  is  filled  with  percent  signs,  the  program 
will  not  insert  or  delete  any  extra  blanks  between  the 
words  in  the  output.  The  percent  signs  can  be  used  to 
reserve  space  for  later  insertion  of  special  symbols. 

8.  Mistyped  characters  on  the  input  cards  may  be 
'erased'  by  using  the  — i  (numeric  G)  after  the  offending 
character,  n  — t’s  cause  the  last  N  characters  to  be 
replaced  by  the  next  N  characters  of  input  (control 
characters  count  towards  N) .  Regular  mapping  occurs 
unless  otherwise  controlled. 

9.  An  0-8-2  punch  (numeric  T)  indicates  the  position 
of  a  footnote  reference  number  in  the  text:  it  will 
appear  in  the  printout  as  [n] ,  where  n,  the  number  of 
footnotes  on  the  current  page,  is  determined  at 
execution  time.  The  procedure  for  entering  the 
footnote  textual  material  is  described  in  the  section 
dealing  with  control  words. 

10.  A  1-9  multipunch  indicates  the  position  of  a 
deferred  reference  number  in  the  text;  it  wiJl  appear 
in  the  printout  as  (n) ,  where  n  is  the  number  of 
references  since  the  last  set  of  references  were 
printed.  n  is  determined  at  execution  time.  The 
procedure  for  entering  deferred  reference  text  is 
described  in  the  section  dealing  with  control  words. 
The  deferred  reference  number  is  independent  of  the 
footnote  reference  number.  (See  9.  above) 

11.  A  2-9  multipunch  followed  by  a  digit  n  produces  a 
footnote  number  which  is  n  less  than  the’  most  recent 
footnote  number.  e.g.  If  three  footnotes  have  been 
indicated  on  the  present  page,  a  (2-9)1  will  produce 
[2]  in  the  output. 

12.  A  3-9  multipunch  followed  by  a  digit  n  produces  a 
deferred  reference  number  which  is  n  less  than  the  most 
recent  deferred  reference  number,  e.g.  If  twenty-five 
deferred  references  have  been  indicated,  a  (3-9)6  will 
produce  (19)  in  the  output,  i.e.  e  citation  to 
reference  number  19,  six  less  than  the  last  reference 
number . 
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Special  oharacters 

The  following  printer  characters  are  not  available  on 
the  029  keypunch  but  may  be  created  by  multipunching  (hold 
down  the  MULT  PCH  key  while  striking  several  eetters) .  The 
MULT  PCH  key  also  gives  numeric  shift. 

SYMBOL  MULTI  PUNCHES 

{  §0 

}  -0 

[  $50 

]  (-0 

-01 

i  5-084 

+  -0 
81 


Control  words 

The  format  of  the  output  may  be  controlled  by  control 
cards.  To  distinguish  control  cards  from  the  rest  of  the 
text,  they  have  a  unique  format  --  period  in  column  1,  two 
letter  abbreviation  for  the  control  word  in  columns  2  and  3, 
and  sometimes  an  operand  in  columns  4-80.  No  other  text  may 
appear  on  the  control  card.  Control  words  affect  the 
printed  format  but  are  never  printed  themselves. 

In  this  discussion,  the  word  "break”  associated  with  a 
control  word  will  indicate  that  two  input  cards  separated  by 
the  control,  card  will  not  be  run  together,  as  they  normally 
would  in  FILL  mode.  Thus  at  a  break,  all  input  text  read  so 
far  will  be  printed  out,  and  all  following  input  text  will 
appear  on  a  new  line  of  output. 

"Default"  means  the  value  of  the  parameter  that  ROFF 
assumes  if  not  otherwise  specified. 

.PL  n  page  length 

set  output  page  length  to  n  lines.  Default 
and  initial  values  are  set  to  48. 

.LL  n  line  length 

break,  set  output  line  length  to  n 
characters.  Default  and  initial  values  are 
set  to  60. 

.SS  single  space 

break,  enter  single  space  mode.  ROFF  starts 
in  single  space  mode. 
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.DS  double  space 

break,  print  succeeding  output  double  spaced. 

.NS  no  spacing 

break,  do  not  space  the  carriage  when 

printing  output  lines . 

.CO  copy 

enter  mode  in  which  all  text  (excepting 
control  words)  is  printed  in  upper  case  (no 
mapping  to  lower  case)  and  escape  characters 
have  no  effect. 

.MA  map 

enter  character  mapping  mode,  the  inverse  of  I 

copy.  ROFF  starts  in  map  mode.  j 

.FI  fill  | 

break,  move  words  from  the  following  cards  as 
necessary  to  place  as  many  words  as  possible 
on  each  line  of  output.  ROFF  starts  i.i  fill  \ 

mode .  i 

j 

.NF  no  fill 

break,  turn  off  fill  mode,  only  mapping  takes  | 

place  (if  desired);  no  words  are  moved.  1 

.AD  adjust  * 

break,  turn  on  mode  in  which  all  text  is 
right  justified  by  inserting  blanks  and 

moving  input  words  when  necessary.  ROFF 
starts  in  adjust  mode.  When  adjust  is  turned 
on,  so  is  fill. 

.NJ  no  justification 

break,  turn  off  right  justification  of 
margins.  Nojust  also  turns  off  fill. 

.IN  n  indent 

break,  print  the  following  text  with  the  left 
margin  indented  n  spaces  from  the  normal 
position.  Default  is  n=0,  which  restores  the 
non-indenting . 

.UN  n  undent 

start  the  next  line  (only)  n  spaces  to  the 
left  of  the  current  margin.  Undent  does  not 
change  the  current  value  of  the  indentation 
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nor  will  it  move  the  print  to  the  left  of  the 
natural  margin. 

.PP  n  paragraph 

break,  start  a  new  paragraph  with  initial 
indentation  n  spaces  relative  to  current 
indent  value.  If  n  is  defaulted,  use 
previous  value  for  paragraph  indenting. 
Initially  n  is  5.  Capitalization  is  set  on. 

.BR  break 

break,  set  capital  switch;  the  next  input 
line  is  started  on  a  new  line. 


•SP  n  space 

break , 
if  the 
current  page, 
first . 


insert  n  blank  lines.  Default:  n=l. 
request  cannot  be  satisfied  on  the 
a  skip  to  a  new  page  executed 


.NE  n  need 

if  n  lines  are  left  on  the  current  page,  no 
action  is  taken.  Otherwise,  break,  and  skip 
to  a  new  page.  Default:  n=0 . 

.PM  n  paging  mode 

if  n-1,  print  page  numbers  at  the  top  of  each 
page  in  arabic  numerals.  If  n=2,  print  page 
numbers  in  lower  case  roman  numerals.  If 
n-0,  don't  print  page  numbers,  but  continue 
computing  them.  A  change  from  roman  to 
arabic  and  vice  versa  resets  page  number  to 
1.  ROFF  starts  with  n=l. 


.BP  begin  page 

break,  start  next  line  on  new  page. 

Capitalize  first  letter  on  new  page. 

.PA  n  page 

break, start  next  line  on  a  new  page  numbered 
n.  Default:  n=l.  capitalize  first  letter  on 
new  page. 

.SK  n  skip 

at  the  first  opportunity,  skip  n  blank  pages. 
Default:  n=l .  If  further  skips  are 
encountered  before  previous  ones  are 
executed,  the  values  of  n  are  added,  and  all 
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.TRac 


executed  at  the  first  opportunity, 
center 

break,  center  the  input  from  the  next  card  in 
the  output  line.  The  center  switch  turns 
itself  off  after  the  execution  of  one  input 
card. 

right  adjust 

break,  slide  the  text  from  the  next  input 
card  over  against  the  right  margin.  The 
right  adjust  switch  turns  itself  off  after 
the  execution  of  one  input  card. 

translate 

henceforth,  when  the  character  a  is 
encountered  as  the  output  is  about  to  be 
printed,  convert  it  to  the  character  c.  The 
characters  are  arbitrary  and  may  be  placed 
anywhere  in  the  operand  field,  a  may  not  be 
a  blank.  ROFF  starts  with  * .TR  %  *. 


.RT  revert 

return  the  transformation  table  set  up  by  the 
•TR  command  to  an  identity  transform  with  I 
going  to  blank. 

.CH  /stringl/string2/  change  command 

change  every  occurrence  of  character  string 
'stringl*  to  the  character  string  'string2'. 
Stringl  and  string2  need  not  be  the  same 
length.  Blanks  within  a  string  are 
significant [1] .  If  * / *  appears  within  the 
character  strings  its  role  as  a  delimiter 
must  be  taken  by  any  character  not  appearing 
in  the  strings.  ROFF  services  twenty  or  less 
change  commands  simultaneously  with  the 
restriction  that  a  string  cannot  exceed  ten 
characters.  If  no  operands  are  used,  only 
previously  entered  changes  are  performed. 
The  change  command  is  rather  time  consuming 
when  turned  on. 

t 1 J  The  character  operands  in  the  .CH  and  .TR  commands 
are  not  mapped.  To  enter  lower  case  letters  an  additional 
punch  must  be  made  on  each  letter:  0  for  A-I,  §  for  J-R,  and 
-  for  S-Z. 
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.NC  no  change 

turns  off  the  change  command.  All  changes 
entered  are  remembered  and  reinstituted  by 
the  next  .CH  command. 

.FN  begin  footnote  text 

process  the  input  cards  to  follow  as  the  text 
for  the  m  th  footnote,  where  m  is  the  number 
of  footnote  texts  entered  along  v;ith  the 
current  output  page.  The  footnotes  are 
stored  on  disk  and  printed  at  the  lower 
portion  of  the  page  when  the  main  body  of 
text  has  printed.  The  first  letter  of  the 
footnote  text  is  capitalized  unless  otherwise 
controlled.  The  footnote  is  printed  with  no 
indentation  in  adjust  mode  and  map  mode 
unless  controlled  by  control  words  entered 
within  the  footnote  text  itself.  Output  text 
is  single  spaced  unless  changed  by  the  .FS 
command  (see  below)  . 

.FE  end  footnote  text 

on  the  next  card  return  to  producing  main 
text  and  return  the  program  controls  to  their 
state  before  the  .FN  command[l]. 

.FS  footnote  spacing 

set  the  footnote  carriage  control  to  provide 
the  spacing  currently  in  use,  either  single 
or  double  spacing.  ROFF  starts  in  single 
space  mode . 

.CT  continuous  footnote  numbering 

number  the  footnotes  continuously  from  1 
throughout  the  text  rather  than  resetting  the 
number  to  1  each  page . 

•RF  begin  deferred  reference  text 

process  the  input  cards  to  follow  as  text  for 

(1]  The  footnote  indicator  O-S-2  and  the  footnote  texts  are 
numbered  separately  so  many  footnotes  may  be  indicated 
before  any  footnote  texts  are  entered.  To  enter  several 
footnotes  at  one  time,  preface  each  by  a  .FN  card  and  use 
only  one  .FE  card  after  the  last  footnote  text.  If  the 
footnotes  will  not  fit  on  the  current  page,  they  carry  over 
to  the  bottom  of  the  next  page. 
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the  m  th  deferred  reference,  where  m  is  the 
number  of  deferred  references  entered  since 
the  last  .RP  card  (see  below).  The 
references  are  stored  on  disk  and  printed 
upon  command  (.RP).  The  first  letter  of  the 
reference  is  capitalized  unless  otherwise 
controlled,  l'he  reference  is  printed  with  no 
indentation  in  adjust  mode  or  map  mode  unless 
controlled  by  control  words  entered  within 
the  reference  text  itself.  Output  text  is 
single  spaced  unless  changed  by  the  .RS 
command  (see  below) . 

.RE  end  deferred  reference  text 

on  the  next  card  return  to  producing  main 
text  and  return  the  program  controls  to  their 
state  before  the  .RF  command. [1] 

.RP  print  deferred  references 

space  to  new  page,  write  heading  REFERENCES 
and  print  all  reference  texts  entered  since 
the  last  call  to  .RP.  Reset  deferred 
reference  number  counter  to  1 . 

.RS  reference  spacing 

set  the  reference  carriage  control  to  provide 
the  spacing  currently  in  use,  either  single 
or  double  spacing.  ROFF  starts  in  single 
space  mode. 

.EF  end  of  file 

break,  skip  to  the  next  page,  terminate  job. 
This  should  be  the  last  card  in  the  input 
deck . 

•HE  heading 

causes  the  characters  "xxx  ..."  punched  in 
columns  5-S8  to  appear  (without  mapping)  at 
the  top  of  each  page  (on  the  line  with  the 
page  number,  left  justified)  until  cancelled 

[1]  The  deferred  reference  indicator  multipunch  1-9  and  the 
reference  texts  are  numbered  separately  and  independently  of 
footnote  numbers,  so  that  many  references  may  be  indicated 
before  any  reference  texts  are  entered.  To  enter  several 
references  at  one  time,  preface  each  by  a  .RF  card  and  use 
only  one  .RE  card  after  the  last  reference  text. 
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by  another  .HE  command  (for  which  the 
character  string  may  be  blank) . 

.SF  n  set  footnote  counter 

set  the  footnote  counter  to  n.  (The  first 
footnote  will  then  be  numbered  n  +  1.) 

•FR  change  footnotes  to  references 

treat  the  footnotes  as  references.  This 
allows  the  footnotes  to  be  transferred  from 
the  bottom  of  the  page  to  the  end  of  the 
manuscript  without  repunching. 

Suggestions  and  Warnings 

1 .  As  a  general  rule,  place  each  sentence  on  a  separate  card 
if  running  in  fill  mode.  This  makes  editing  the  deck 
significantly  easier. 

2.  A  word  cannot  be  run  off  the  end  of  a  card  and  onto  the 
next  input  card.  Also  the  @  and  — i  features  do  not  operate 
across  a  card  boundary. 

3.  Only  one  overstrike  is  made  for  a  given  character. 

4.  The  percent  sign  is  very  useful  for  controlling  spaces 
when  in  fill  or  adjust  mode.  Its  use  can  prevent  the 
insertion  of  blanks  and  stop  the  elimination  of  blanks  in 
the  output  line. 

5.  Only  enter  .RF  and  .  FN  text  from  the  normal  mode. 
Although  footnotes  may  contain  references  and  vice  versa, 
the  texts  must  be  entered  as  .RF  ...  .RF.  ...  .FN  ...  ,FF, 
i.e.  no  overlapping  of  footnote  and  reference  texts. 

General  use  of  ROFF 


To  use  ROFF,  create  the  input  deck  as  described  in  this 
manual,  using  control  words  and  escape  characters  as  needed. 
Remember  to  reset  any  parameters  you  desire  that  differ  from 
the  default  values.  The  first  page  of  output  is  not 
numbered  and  the  second  page  is  numbered  as  1. 

The  load  module  for  this  program  is  stored  on  disk  and 
available  for  general  use.  To  run  from  this,  submit  the 
following  deck: 


m 


AFWL -TR-72-139 


JOBNAME ,CM60000 ,  ETC. 

TASK  CARD 
COMMON, DYSROFF. 

SWITCH, 1.  ONLY  FOR  MT/ST  OUTPUT 

REQUEST  TAPE9 ,HI , ,L .  ETC.  NEEDED  FOR  MT/ST  ONLY 

SWITCH, 2.  ONLY  FOR  MICROFILM  OUTPUT 

DYSROFF. 

7/8/9 

12/11/0/1/2/3/4/5/6/7/8/9  IN  COLUMNS  1  AND  2 
input  deck 

12/11/0/1/2/3/4/5/6/7/8/9  IN  COLUMNS  1  AND  2 
0/7/8/9 

ROFF  produces  one  single  spaced  page  for  every  50  cards 
of  input.  In  two  minutes  8000  cards  of  input  can  be 
processed  to  give  125  single  spaced  pages  of  output,  of  both 
microfilm  and  magnetic  tape. 

References 

The  major  effort  in  divising  the  scheme  for  this 
program  is  due  to  Mr.  J.  Saltzer  at  MIT,  who  is  responsible 
for  specifying  most  of  the  basic  commands  used  in  ROFF. 
This  particular  version  of  ROFF  is  a  modified  form  of  an  IBM 
OS/360  program  written  by  Dr.  Peter  Crean  as  revised  to 
incorporate  equation  writing  by  Dr.  Stephen  Fulling  at 
Princeton. 
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SECTION  II 
EQUATION  GENERATION 


Introduction 


EQROFF  is  a  ROFF  Fortran  subprogram  which  formats 
equations  and  other  material  requiring  alignment  of  several 
consecutive  lines  of  print.  From  instructions  punched 
sequentially  on  input  cards  it  positions  superscripts  and 
subscripts,  constructs  fractions,  and  overlines  expressions. 


Mathematical  equations 

From  instructions  punched  sequentially  on  the  input 
cards  EQROFF  positions  superscripts  and  subscripts  in  the 
output  lines  above  and'  below  the  main  line  of  the 
mathematical  expression,  constructs  fractions,  and  draws 
lines  over  expressions. 

1.  Input  cards  for  each  line  of  an  equation  (or  sequence  of 
equations)  must  be  preceded  by  the  control  card  ”.EQM 
(equation).  The  last  line  must  be  followed  by  a  control 
card  (for  example,  ".PP"  if  a  new  paragraph  is  to  begin). 
If  no  control  statement  is  needed,  use  the  dummy  statement 
M.EEM  (end  of  equation);  the  capital  switch  is  then  turned 
off.  If  the  next  line  should  begin  with  a  capital  letter, 
use  .BR  instead  of  .EE. 

2.  The  following  commands  may  make  the  testing  of  punched 
input  less  time-consuming  in  some  circumstances: 

.EO  (equations  only)  Process  only  equations,  no  text. 

.NQ  (no  equations)  Process  only  text,  no  equations. 

.AL  (all  input)  Cancel  .EO  or  .NQ  command. 

3.  Use  of  EQROFF  inside  a  footnote  is  risky,  as  the 
subscripts  or  superscripts  may  appear  on  a  different  page 
from  the  rest  of  the  equation. 

4.  The  processing  of  equations  is  rather  slow. 
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Control  characters  within  an  equation 

1)  EQROFF  accepts  and  processes  unchanged  the 
following  ROFF  control  characters: 

a)  i  This  causes  the  next  letter  to  be 
capitalized. 

b)  $  This  causes  the  next  letter  to  be  lower 
case . 

c)  A  This  causes  the  next  string  of  letters  to 
be  capitalized. 

d)  _  This  causes  the  next  string  of  characters 
to  be  underlined. 

e)  3  This  causes  the  character  following  @  to 

overstrike  the  character  preceding  @.  Any 
character  (except  -  and  @)  may  follow  an  This 

is  useful  for  generating  approximations  to  Greek 
letters,  etc.[l]  In  particular,  a  ROFF  or 

EQROFF  control  character  may  be  used  as  the 
character  following  i.e.,  a@  to  underline  a 
single  character  a  .  In  addition,  if  a  single 
EQROFF  control  character  is  needed  as  part  of  an 
equation,  §  for  example,  it  should  be  punched  as 

teg- 

f)  %  This  forces  a  blank  [see  3)  below] . 

2)  — i  (numeric  G)  causes  the  erasure  of  the  previous 
character  punched,  thus  permitting  the  correction  of  a 
mispunched  character.  Like  ROFF,  in  EQROFF  the  — i  can 
erase  control  characters  as  well. 

3)  Blanks  are  always  ignored.  Thus  the  input  card  to 
EQROFF  may  have  the  various  terms  of  an  equation  widely 
separated  for  ease  of  reading  and  editing.  If  a  true 
blank  is  desired  in  the  final  output,  a  %  sign  should 
be  used. 


[1]  To  enter  lower  case  letters  Following  @  an  additional 
punch  must  be  made  on  each  letter:  0  for  A-I,  §  for  J-R,  and 
-  for  S-Z. 
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4)  Normally  an  equation  will  consist  of  a  centered  or 
left  justified  expression  followed  by  an  optional  right 
justified  expression.  This  positioning  is  controlled 
as  follows: 

a)  expression  If  an  expression  is  not  enclosed 
in  control  characters,  it  is  written  on  the  main 
equation  line,  starting  two  spaces  in  from  the 
left  margin. 

b)  (12-ll)expression (12-11)  This  causes  the 
expression  within  the  (12-ll)’s  to  be  centered  on 
the  output  line.  This  feature  is  useful  for  short 
expressions  which  look  better  when  centered.  Note 
that  (12-11)  is  a  multipunch  (§-)  on  the  keypunch. 

c)  'expression'  This  causes  the  expression 
within  the  ' 's  (grave  accents)  to  be  right 
justified  at  the  end  of  the  manuscript  line.  This 
feature  is  useful  for  writing  equation  numbers.fi] 
Note  that  the  '  is  a  multipunch  (8-1)  on  the 
keypunch . 

5)  Superscripts,  subscripts,  and  the  numerators  and 
denominators  of  fractions  will  appear  on  the  lines 
above  and  below  the  main  line .  They  are  punched  on  the 
input  cards  at  their  natural  locations  in  an  expression 
as  follows: 

a)  ?expression?  This  causes  the  expression 
enclosed  within  the  ?’s  to  be  written  as  a 
superscript  (i.e.,  in  the  line  above  the  main 
equation  line.)  Oyerlining  is  permitted  within  a 
superscript,  but  subscripts,  superscripts,  and 
fractions  are  not. 

b)  "expression"  This  causes  the  expression 
enclosed  within  the  "'s  to  be  written  as  a 
subscript  (i.e.,  in  the  line  below  the  main 
equation  line).  Overlining  is  permitted  within  a 
subscript,  but  subscripts,  superscripts,  and 
fractions  are  not. 


m  ROFF  can  be  used  to 


insert  sequential  equation  numbers  of  the  form  (n)  by 
punching  '(9-1)%%%'  at  the  end  of  the  EQROFF  input  card. 
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c)  (0-8 -2) superscript (0-8- 2) subscript (0-8-2) 

This  causes  simultaneous  super-  and  subscripting 
of  expressions.  The  two  expressions  are  left 
justified  within  the  super/subscript  expression. 
This  feature  is  useful  for  limits  of  summations 
and  integrals.  Overlining  is  permitted  within 
either  term,  but  subscripts,  superscripts,  and 
fractions  are  not.  Exception:  The  subscript 
control  (")  can  be  used  within  the  superscript 
half  of  an  (0-8-2)  expression  in  order  to  write  on 
the  main  and  subscript  lines  simultaneously; 
similarly,  ?*s  may  appear  in  the  subscript  term. 
Note  that  the  multipunch  (0-8-2)  is  the  numeric  T 
on  the  keypunch. 

d)  §numerator$denominator§  This  causes  the 
first  expression  to  be  written  as  the  numerator  of 
a  fraction,  the  second  as  the  denominator.  A  bar 
is  also  written  and  the  shorter  term  is  centered 
within  the  fraction.  Overlining  is  permitted 
within  either  term  of  a  fraction,  but  subscripts, 
superscripts,  and  fractions  are  not. 

6)  fexpression#  This  causes  the  expression  enclosed 
within  the  #' s  to  be  overlined.  (Overlining  is  done  by 
underlining  the  appropriate  characters  in  the  line 
above.)  This  feature  is  useful  for  writing  square 
roots,  e.g.,  /#term#,  and  also  for  indicating  complex 
conjugates,  etc.  Subscripts  are  permitted  within  the 
#'s,  but  superscripts  and  fractions  are  not. 

Note  that  (12-ll)'s  and  'fs  should  not  appear  within  the 
expressions  described  in  5)  and  6) . 


Suggestions  and  warnings 

1)  Remember  to  leave  space  (by  using  %'s)  for 
characters  which  must  be  added  by  hand,  including 
superscripts  inside  fractions,  etc. 

2)  If  the  last  character  of  an  expression  to  be 

underlined  is  also  to  be  overstruck,  type  the 
overstrike  (@x)  before  the  (  _)  which  turns  off  the 

underlining . 

3)  If,  in  the  output,  the  equation  is  scrambled  or 
part  of  it  is  missing,  check  the  entire  input  card 
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SECTION  III 

ROFF  CHARACTER  SET 


GRAPHIC 

CARD  CODE 

GRAPHIC 

CARD  CODE 

GRAPHIC 

CARD  CODE 

V 

12-9-8-7 

CO 

12-9-2 

V 

12-9-3 

$ 

12-9-4 

TAB 

12-9-5 

H 

12-9-6 

A 

12-9-7 

+ 

12-9-8-1 

JI 

12-9-8-2 

IT 

12-9-8-3 

4- 

12-9-8-4 

CR 

12-9-8-7- 

1 

12-9-8-6 

'C- 

11-9-1 

§ 

11-9-2 

a 

11-9-3 

3 

11-9-4 

BS 

11-9-6 

i 

11-9-7 

r 

11-9-8 

0 

11-9-8-1 

j 

11-9-8-2 

L 

11-9-8-3 

/ 

11-9-8-4 

11-9-8-5 

l 

0-9-2 

0-9-3 

- 

0-9-4 

oc 

0-9-5 

A 

0-9-6 

= 

0-9-7 

T 

0-9-8 

= 

0-9-8-1 

a 

12-0-9-1 

B 

12-0-9-2 

* 

12-0-9-3 

<P 

12-0-9-4 

G 

12-0-9-5 

12-0-9-6 

X 

12-0-9-7 

n 

12-0-9-8 

t 

12-8-1 

i 

12-8-2 

• 

12-8-3 

< 

12-8-4 

( 

12-8-5 

+ 

12-8-6 

•  1 

12-8-7 

5 

12 

; 

12-11-9-1 

K 

12-11-9-2 

10 

12-11-9-3 

u 

12-11-9-4 

V 

12-11-9-5 

0 

12-11-9-6 

p 

12-11-9-7 

Y 

12-11-9-8 

e 

11-8-1 

! 

11-8-2 

$ 

11-8-3 

I 


! 
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* 

11-8-4 

) 

11-8-5 

• 

> 

11-8-6 

— i 

11-8-7 

- 

11 

/ 

0-1 

a 

11-0-9-2 

T 

11-0-9-3 

% 

11-0-9-4 

X 

11-0-9-5 

6 

11-0-9-6 

X 

11-0-9-7 

U 

11-0-9-8 

5 

0-8-1 

9 

0-8-3 

1 

0-8-4 

0-8-5 

> 

0-8-6 

? 

0-8-7 

S 

12-11-0 

12-11-0-9-1 

12-11-0-9-2 

_ 

12-11-0-9-3 

'i 

12-11-0-9-4 

+ 

12-11-0-9-5 

V 

12-11-0-9-6 

f 

12-11-0-9-7 

f 

12-11-0-9-8 

V 

8-1 

• 

• 

8-2 

# 

8-3 

@ 

8-4 

t 

8-5 

s 

8-6 

»1 

8-7 

T 

12-0-8-1 

a 

12-0-1 

b 

12-0-2 

C 

12-0-3 

d 

12-0-4 

e 

12-0-5 

£ 

12-0-6 

g 

12-0-7 

h 

12-0-8 

i 

12-0-9 

• 

12-11-8-1 

j 

12-11-1 

k 

12-11-2 

1 

12-11-3 

m 

12-11-4 

n 

12-11-5 

0 

12-11-6 

P 

12-11-7 

q 

12-11-8 

r 

12-11-9 

- 

11-0-1 

s 

11-0-2 

t 

11-0-3 

u 

11-0-4 

V 

11-0-5 

w 

11-0-6 

X 

11-0-7 

y 

11-0-8 

z 

11-0-9 

0 

12-11-0-8-1 

i 

12-11-0-1 

2 

12-11-0-2 

3 

12-11-0-3 

4 

12-11-0-4 

5 

12-11-0-5 

6 

12-11-0-6 

7 

12-11-0-7 
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SECTION  IV 


CONVERSION  OF  TAPE  TO  MT/ST  CARTRIDGES 


Initial 


1.  Obtain  permission  of  operator  of  LITTON  converter. 

2.  Turn  the  power  switch  to  the  "on"  position.  Switch 
is  under  cover. 


Loading 

1.  Load  file  protected  tape  by  hand  making  sure  it  is 
secure. 

2.  Reel  tape  to  other  holder  making  sure  the  tape 
follows  the  arrows . 

3.  Load  cartridge  by  hand  and  make  sure  it  is  on 
firmly. 

4.  Press  load  button. 

5.  Select  data  file. 

6.  Press  data  file  button. 

7.  Press  transfer  button. 

8.  If  copying  more  than  one  file  replace  cartridge 
after  it  is  rewound  and  then  select  next  file. 

9.  Repeat  steps  6,  7  and  8. 


Unloading 

1.  To  remove  tape,  hit  rewind  button. 

2 .  Remove  tape  by  hand 

3.  Remove  cartridge. 

\ 

4.  Turn  the  power  switch  to  the  pff  position 
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SECTION  V 


OFF  LINE  PRINTING  ON  A  MT/ST  MACHINE 


Initial 


1.  Obtain  permission  of  MT/ST  secretary. 

2.  Remove  light  gray  cover  from  machine  if  on. 

3.  Turn  power  switch  on.  Set  spacing  mode  to  single 
space. 

4.  Set  paper  guide  at  0,  right  margin  at  10,  and  left 
margin  at  130. 


Loading  Cartridges 


1.  Set  right  control  knob  to  L  (or  R)  play  and  the 
left  knob  to  auto . 

2.  Press  unload  to  open  plastic  door. 

3.  Insert  cartridge  on  L  (or  R)  hub  firmly. 

4.  Press  load  firmly. 

5.  Set  reference  number  to  01. 

6.  Press  search . 

7.  Press  skip . 

8.  After  loading  paper,  press  start  to  run  off  the  page. 
Next  Page 

1.  End  of  page  is  signaled  by  S  carriage  returns 
followed  by  a  stop. 

2.  Change  paper. 
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3 .  Advance  reference  number  by  one . 

4.  Press  search. 


5.  Press  start. 


Unloading  Cartridge 

1.  End  of  cartridge  signaled  immediately  after  a  page 
change  by  a  feed  code  followed  by  a  stop.  (Pressing  start 
again  will  yield  zzzzz  followed  by  an  error  light). 

2.  To  unload  cartridge,  press  rewind . 

3.  Hold  down  unload  and  open  the  plastic  door. 

4.  Gently  remove  cartridge  from  hub. 


ERRORS 

1.  Error  is  signaled  by  lighting  the  error  indicator 
1 ight . 

2.  To  recover,  place  right  control  knob  in  record  L 
(or  R) . 

3.  Type  the  correct  character. 

4.  Return  right  switch  to  play  L  (or  R) . 

5.  Press  start  to  continue  running  off  the  page. 

Greek  Letters 

1.  Greek  letters  are  signaled  by  a  stop. 

2.  To  continue,  remove  current  selectric  (roman)  ball. 

3.  Replace  with  greek  symbol  ball. 

4.  Press  start. 

5.  After  stop,  replace  previous  roman  selectric  ball. 


AFWL-TR-72-139 


Finish 

1.  Turn  power  off  after  removing  cartridge. 

2.  Recover  machine  (if  previously  covered). 

3.  Record  time  and  number  of  pages  used  (including 
spoiled)  on  log. 
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APPENDIX 


LISTING  OF  ROFF  CODE 


m 


& 
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0  V<.RlA  T  (SY 

ROFF 

2 

subroutine  ph  ( jour. isart,inleng,iej) 

ROFF 

3 

COMMON  /CAROS/  NC,MES<5) 

ROFF 

4 

LOGICAL  Sc.CJ’J j 

ROFF 

5 

INTtGrK  GET 

ROFF 

6 

DIMENSION  JOJT (80) 1 10 AT At  17) 

ROFF 

7 

DIMENSION  i TdNS(4*96) 

ROFF 

8 

DATA  NC/9/ 

ROFF 

9 

DATA  MES/3.H  MUH3ER  OF  CAROS  READ  8Y  ROFF  / 

ROFF 

10 

DATA  MES(5)/3/ 

ROFF 

11 

DATA  ScCONU/«  *  ALSE« / 

ROFF 

12 

DATA  ITRANS/4-96*0/ 

ROFF 

13 

OA1  A  ITRANS(232C)/w/ 

ROFF 

14 

DATA  iTRANS(23C6)/l/ 

ROFF 

15 

DATA  I TRANS (21 78 1/2/ 

ROFF 

16 

DATA  ITRANS(2ll4)/3/ 

ROFF 

17 

DATA  ITRANS(2:82>/6/ 

ROFF 

18 

DATA  XTRANS(2:e>6)/3/ 

ROFF 

19 

OATA  ITRANS(2.58)/i/ 

ROFF 

20 

OATA  ITRANS(2„5h)/7/ 

ROFF 

21 

DATA  I TRANS (2. 52) /8/ 

ROFF 

22 

OA1A  ITRANS(23b8)/)/ 

ROFF 

23 

OATA  1TRANS (21801/10/ 

ROFF 

26 

OATA  ITRANS(2116»/11/ 

ROFF 

25 

DATA  I  TRANS (2  <  84) /1 2/ 

ROFF 

26 

OATA  ITRANS(2'c8)/13/ 

ROFF 

27 

OATA  ITRANSd.  60)/l4/ 

ROFF 

28 

OATA  ITRANS(2:5o)/15/ 

ROFF 

29 

OATA  I  TRANS (3 J 32) /1 6/ 

ROFF 

30 

OATA  ITRANS(1282)/1// 

ROFF 

31 

DATA  ITRANSd  154)/ 18/ 

ROFF 

32 

OATa  ITRANS(IC90>/19/ 

ROFF 

33 

OATA  ITRANSd:  581/20/ 

ROFF 

34 

OATA  1  TRANS (1 .42) /21/ 

ROFF 

35 

OATA  ITRANSd)34)/22/ 

ROFF 

36 

OATA  ITRAN*(i;30)/23/ 

ROFF 

37 

OATA  ITRANS(i:28)/2A/ 

ROFF 

38 

OATA  ITRANSd264)/25/ 

ROFF 

39 

OATA  ITRANSd  156) /£&/ 

ROFF 

40 

OATA  lTRANS(1.92)/r  ‘ 

ROFF 

41 

OATA  ITRANSd  D  63) /2  8/ 

ROFF 

42 

OATA  ITRANSd  .44)/ 2 9/ 

ROFF 

43 

OATA  ITRANSd;36)/30/ 

ROFF 

44 

OATA  ITRANSd  .'32)/31/ 

ROFF 

45 

OATA  1  TRANS U  ?  961/32/ 

ROFF 

<*6 

OATA  ITRANSd)  u)/33/ 

ROFF 

47 

DATA  ITRANSd  t2)/34/ 

ROFF 

48 

OATA  ITRANSd/ 8) /33/ 

ROFF 

49 

OATA  ITRANSd*6)/36/ 

ROFF 

50 

OATA  ITRANSdiO)/37/ 

ROFF 

51 

OATA  ITRANS(522)/38/ 

ROFF 

52 

OATA  ITRANSdl8)/39/ 

ROFF 

53 

OATA  I  TRANS (5 16) /40/ 

ROFF 

56 

DATA  I  TRANSIT  7  21/41/ 

ROFF 

55 

OATA  ITRANS(6<*h>/42/ 

ROFF 

56 

26 
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SUBROUTINE  f>R£ 

OATA  XTRANS(39G)/*3/ 
OATA  ITRANS(5«6)/44/ 
DATA  ITRANS(532>/45/ 
OATA  XMANS(524)/46/ 
OATA  XTRANS(52G)/47/ 
OATA  XTRANS(3844)/46/ 
OATA  ITRANS(2:>6)/49/ 

oata  x  trans  (iso /so/ 

OATA  XTRANS(::)/3i/ 
OATA  ITRANS(3*)/52/ 
OATA  ITRANSdb)/53/ 
OATA  XTRANSd..)/54/ 
DATA  XTRANS(:t/5S/ 
OATA  iTRANS(«l/?6/ 
OATA  XTRANS(2sO)/57/ 
OATA  ITRANS(lS2)/58/ 
OATA  I f RAWS (301/39/ 
OATA  ITRANS(3sJ/60/ 
OATA  XTRANS(2. 1/61/ 
OATA  lTRANSd2)/62/ 
OATA  ITRANS(8* 763/ 
OATA  ITRANS(ll/&4/ 
OATA  I TRANS (2 a IS 1/63/ 
OATA  XTRANS(2;9G)/;c/ 
OATA  I TRANS (2 a 2b)/ 37/ 
OATA  X  TRANS (2 j 94 1/38/ 
OATA  X TRANS (2 3 78) 759/ 
OATA  XTRA NS (2570)770/ 
OATA  I  TRANS (2x66) 771/ 
OATA  X  TRANS (2 3 64) 772/ 
OATA  ITRA NS (23071/73/ 
OATA  X TRANS (2179)774/ 
OATA  XTRANS(2li5>/75/ 
OATA  I  TRANS (2. 83)/ 76/ 
OATA  ITRANS(2.b7)//7/ 
OATA  ITRANS(2:69)/7S/ 
OATA  XTRANS(2-55)/?9/ 
OATA  I  TRANS (23  49) /8Q/ 
OATA  ITRANS(3330)/81/ 
OATA  XTRANS(3’C2|/82/ 
OATA  ITRANS(3138)/83/ 
OATA  ITRANS(3X0&)/84/ 
DATA  I  TRANS (3 .90)/ 33/ 
OATA  I  TRANS (3 . 62)786/ 
OATA  I TRANS (3 2  78)/ 8 7/ 
OATA  XTRANSX3. 76)/88/ 
OATA  ITRANS(1283)/89/ 
OATA  I TRANS d 153) 790/ 
OATA  I TRANS(139i)/91/ 
DATA  I  TRANS d  . 59) /92/ 
OATA  XTRANSd?43)/93/ 
OATA  I  TRANS (Ij 33) 794/ 
DATA  ITRANSd;31)/95/ 
OATA  ITRANSii. 25)796/ 
OATA  I TRANS (7 39) 797/ 


ROF  F 

57 

ROFF 

56 

ROFF 

59 

ROFF 

60 

ROFF 

bl 

ROFF 

62 

ROFF 

63 

ROFF 

64 

ROFF 

65 

ROFF 

66 

ROFF 

67 

ROFF 

66 

ROFF 

69 

ROFF 

70 

ROFF 

71 

ROFF 

72 

ROFF 

73 

ROFF 

74 

ROFF 

•  75 

ROFF 

76 

ROFF 

77 

ROFF 

78 

ROFF 

79 

ROFF 

90 

ROFF 

81 

ROFF 

82 

ROFF 

83 

ROFF 

64 

ROFF 

65 

ROFF 

86 

ROFF 

87 

ROFF 

86 

ROFF 

89 

ROFF 

90 

ROFF 

91 

ROFF 

92 

ROFF 

93 

ROFF 

94 

ROFF 

95 

ROFF 

96 

ROFF 

97 

ROFF 

98 

ROFF 

99 

ROFF 

100 

ROFF 

101 

ROFF 

102 

ROFF 

103 

ROFF 

104 

ROFF 

105 

ROFF 

106 

ROFF 

107 

ROFF 

108 

ROFF 

109 

ROFF 

110 

ROFF 

111 
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SUBRJUTIN"  PR£ 


DATA  1 TRA NS (lr £6)798/ 

OATA  X  TRANS  do  02)799/ 

ROFF 

112 

DATA  I  TRANS (15 70)7103/ 

ROFF 

113 

OATA  XTRANS(l954)/l 01/ 

ROFF 

116 

OATA  ITRANS(l96c)/l02/ 

ROFF 

115 

OATA  iTRANSd 562)7103/ 

ROFF 

'116 

OATA  ITRANS(1^<*0)/10A/ 

ROFF 

117 

OATA  i TRANS (7 71) /iU 5/ 

ROFF 

118 

OATA  1TRANS(3. 73)7106/ 

ROFF 

119 

OATA  ITRANS(579)/1C7/ 

ROFF 

120 

OATA  ITRANS(3«7)/1G8/ 

ROFF 

121 

OATA  X TRANS(551)/1J9/ 

ROFF 

122 

OATA  I TRANS (? 23) /110/ 

ROFF 

123 

OATA  1 TRANS (5 19) /111/ 

ROFF 

126 

DATA  ITRANS(3i85>/1127 

ROFF 

125 

OATA  I TRANS (3 3 ‘♦2)7113/ 

ROFF 

126 

OATA  I TRANS (3 7 lif) 71X4/ 

ROFF 

127 

OATA  ITRA NS (3: 53)7115/ 

ROFF 

128 

OATA  X TRANS (3 a 18) 7X16/ 

ROFF 

129 

OATA  I TRANS (3 s 02) 7 1177 

ROFF 

130 

OATA  XTRANS(3996)/11S7 

ROFF 

131 

OATA  1 TRANS (3 590) 71197 

ROFF 

132 

OATA  I  TRANS (3? 88)7120/ 

ROFF 

133 

OATA  lTRANS(2s9)/121/ 

ROFF 

136 

OATA  ITRANS(131) /122/ 

ROFF 

135 

OATA  I TRANS (6 7) 7123/ 

ROFF 

136 

OATA  XTRANS(3;)/12<«/ 

ROFF 

137 

OATA  I TRANS (13)7125/ 

ROFF 

138 

OATA  I  TRANS (11) 71267 

ROFF 

139 

OATA  XTRANS(7I  7127/ 

ROFF 

160 

OATA  X TRANS (2 3 19) 7X28/ 

ROFF 

161 

OATA  1 T  TANS (2 3 17) 71 29/ 

ROFF 

1 42 

OATA  XTRAN3(29d9)/133/ 

ROFF 

163 

OATA  ITRANS (2525)71 31 7 

ROFF 

166 

OATA  X TRANS (2 9 93) 7132/ 

ROFF 

165 

OATA  I TRANS (2 9 77)7133/ 

ROFF 

166 

OATA  X  TRANS (2 9 69) 7134/ 

ROFF 

167 

OaTA  I  TRANS (2 ? 65) 7135/ 

ROFF 

160 

OATA  I TRANS (2 v 63) 7136/ 

ROFF 

169 

OATA  ITRANS(>9C2)/137/ 

ROFF 

150 

OATA  I TRANS (2 591) 7 138/ 

ROFF 

151 

OATA  X TRANS (2 527) 7139/ 

ROFF 

152 

OATA  I TRANS (2 5 95) 7163/ 

ROFF 

153 

OATA  ITRANS(2 9 79)71617 

ROFF 

156 

OATA  ITRANS (2 571)71 627 

ROFF 

155 

OATA  X TRANS (2 >67) 7163/ 

ROFF 

156 

DATA  I TRANS (3 331) 7164/ 

ROFF 

157 

DATA  X TRANS (3329) 7l 69/ 

ROFF 

158 

OATA  ITRANS(32Cl)7l6o7 

ROFF 

159 

OATA  I TRANS (3 137) 71477 

ROFF 

160 

OATA  ITRANS (3105)7168/ 

ROFF 

161 

OATA  iTRANS(3189)7l697 

ROFF 

162 

OATA  I TRANS (3 .81)715 37 

ROFF 

163 

OATA  ITRANS(3. 77)71517 

ROFF 

166 

OATA  I  TRANS (3. 75)71 5c / 

ROFF 

165 

ROFF 

166 
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SUflfidUTlNi  PR£ 


OATA 
JATA 
OATA 
OATA 
DATA 
DATA 
OATA 
OATA 
OATA 
JATA 
OATA 
OATA 
OATA 
OATA 
OATA 
OATA 
DATA 
OATA 
OATA 
OATA 
OATA 
OATA 
OATA 
OATA 
OATA  . 
OATA  ; 
OATA  ] 
OATA  J 
JATA  ] 
OATA  ] 
OATA  1 
OATA  2 
OATA  1 
OATA  1 
OATA  Z 
OATA  I 
OATA  X 
OATA  I 
OATA  I 
OATA  I 
OATA  I 
OATA  I 
OATA  I 
JATA  I 
OATA  I 
OATA  I 
OATA  I 
OATA  I' 
OATA  II 
OATA  II 
OATA  II 
JATA  II 
OATA  II 
OATA  II 
OATA  IT 


TA  ITRANS(3; ?4)/l53/ 
TA  ITRAN$(3;iG3)/154/ 
TA  I  TRANS (3 139)/ 155/ 
rA  ITRANS(3iC7)/156/ 
TA  ITRAN3 (33911/157/ 
rA  I  TRANS (3^ 631/158/ 
rA  ITRANi»3 j79i/X59/ 
rA  I  TRANS ( l?  95) /lc 3/ 
^  I  TRANS (17 93)/ 161/ 
A  I  TRANS (1565) /l 62/ 
A  ITRANS(l301)/i6j/ 
A  ITRANSU 5c9)/1c4/ 
A  I TRANS (15 53)/ 165/ 
A  I TRANS (15 45) /l 66/ 
A  I  TRANS (1541) /1 67/ 
A  I TRANS (1 5  39) /l 68/ 
A  i trans (15 3 8)/ 169/ 

A  ITRANS(lo67)/170/ 

A  I  TRANS (1 s 63) /l 71/ 

A  ITRANS(157l)/i72/ 

A  1 TRANS(1555)/173/ 

A  I  TRANS (15 47)/ 174/ 

A  ITRANSd 543) /1 75/ 

A  I  TRANS (3  s 43)/ 176/ 

A  ITRANS(3841)/177/ 

A  I  TRANS (3 7 13)/ 178/ 
l  I  TRANS (3 349) /1 79/ 
k  ITRANS(3s17)/180/ 
k  I  TRANS (3 5 61)/ 181/ 
k  ITRANS(5593)/182/ 
i  I  TRANS (3  k 89)/ 183/ 
i  ITRANS(5567)/i84/ 
i  I  TRANS (3 5 66)/ 18^/ 

1  TRANS (3 7 15) /18c/ 

I  TRANS (3 a 51)/ 187/ 
ITRANS(33l9)/188/ 

I TRANS (6 543) /189/ 
ITRANS(ja95)/193/ 
ITRANS(3391)/lr.l/ 
ITRANS(2)61)/192/ 
ITRANS(23g5)/193/ 

I TRANS (2 177)/ 194/ 

I  TRANS (2 113) /i 95/ 

I  Trans (2 a  si)/ 196/ 

ITRANSd!  65) /197/ 

I TRANS (2L 57)/ 198/ 
ITRANS(2.53)/199/ 
ITRANS(2j5l)/200/ 

I  TRANS  (2  350/201/ 
ITRANS(2692)/202/ 

I  TRANS (2: 26) /2 03/ 
ITRANS(259b»/204/ 
ITRANS(2;83)/235/ 
ITRANS(2»72)/(;06/ 
ITRANS(2>c6)/207/ 


ROFF 

lb7 

ROFF 

168 

ROFF 

lc9 

ROFF 

170 

ROFF 

171 

ROFF 

172 

ROFF 

173 

ROFF 

174 

R  OFF 

175 

ROFF 

176 

ROFF 

177 

ROFF 

178 

ROFF 

179 

ROFF 

180 

ROFF 

181 

ROFF 

182 

ROFF 

183 

ROFF 

184 

ROFF 

185 

’  ROFF 

186 

ROFF 

187 

ROFF 

188 

ROFF 

189 

ROFF 

190 

ROFF 

191 

ROFF 

192 

ROFF 

193 

ROFF 

194 

ROFF 

195 

ROFF 

196 

ROFF 

197 

ROFF 

198 

ROFF 

199 

ROFF 

200 

ROFF 

201 

ROFF 

202 

ROFF 

203 

ROFF 

204 

ROFF 

205 

ROFF 

206 

ROFF 

207 

ROFF 

208 

ROFF 

209 

ROFF 

210 

ROFF 

211 

ROFF 

212 

ROFF 

213 

ROFF 

214 

ROFF 

215 

ROFF 

216 

ROFF 

217 

ROFF 

218 

ROFF 

219 

ROFF 

220 

ROFF 

221 
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aUQROUTINE  PRi 


OAT  A 

I TRANS (Is 371/208/ 

HOFF 

222 

JATA 

ITRANSU2811/2Q9/ 

ROFF 

22  3 

OAT  A 

I TRA NS (1 *531/210/ 

ROFF 

224 

DATA 

ITRANSd:  891/211/ 

ROFF 

225 

OATA 

I  TRANS (1.57)/ 2 12/ 

ROFF 

226 

JATA 

ITRANSd. 411/213/ 

ROFF 

227 

uATA 

1TRANS(1:33)/214/ 

ROFF 

228 

DATA 

ITRANSd. 291/215/ 

ROFF 

229 

DATA 

ITRA  NS  (1.-271/2 16/ 

ROFF 

230 

JATA 

ITRANSd. 261/217/ 

ROFF 

231 

JATA 

1TRANS(32C4)/213/ 

ROFF 

232 

JATA 

I  TRANS (3 1401/219/ 

ROFF 

233 

OATA 

£  TRANS (31 081/220/ 

ROFF 

234 

JATA 

ITRANS(3. 921/221/ 

ROFF 

235 

OATA 

I TRANS(3j  841/222/ 

ROFF 

236 

JATA 

X  TRANS (3*  801/223/ 

ROFF 

237 

OATA 

X  TRANS (6431/224/ 

ROFF 

238 

OATA 

ITRANSd/  941/225/ 

ROFF 

239 

JATA 

ITRANSd  +11/226/ 

ROFF 

240 

OATA 

I  TRANSd  77) /227/ 

ROFF 

241 

OATA 

I TRANS (5 *5) /22 8/ 

ROFF 

242 

OATA 

I  TRANS  (a  .'91  /22  9/ 

ROFF 

243 

JATA 

I TRANS (5211/230/ 

ROFF 

244 

JATA 

ITRANSd +  7) /231/ 

ROFF 

245 

OATA 

ITRANa(jl5)/232/ 

ROFF 

246 

JATA 

ITRANS(-  14)  /233/ 

ROFF 

247 

OATA 

ITRANSd  0681/234/ 

ROFF 

248 

OATA 

XT RA NS (1:0*1/235/ 

ROFF 

249 

OATA 

ITRANS(15721/23b/ 

ROFF 

250 

OATA 

ITRA NS (la 56 1/237/ 

ROFF 

251 

OATA 

I TRANS(1548) /238/ 

ROFF 

252 

OATA 

ITRANSd  >44 1/239/ 

ROFF 

253 

OATA 

XTRANSC5 131/240/ 

ROFF 

254 

OATA 

ITRANS(2>7)/241/ 

ROFF 

255 

OATA 

I TRANS (12 91/242/ 

ROFF 

256 

OATA 

I  TRANS (S> 1/243/ 

ROFF 

257 

OATA 

ITRA NS (3 31/244/ 

ROFF 

258 

OATA 

ITRANSd/ 1/245/ 

ROFF 

259 

OATA 

ITRANS(9l/2*6/ 

koff 

260 

DATA 

I TRANS (SI  /24f/ 

ROFF 

261 

OATA 

XTRANa(>>/248/ 

ROFF 

262 

OATA 

ITRANa(2l/249/ 

ROFF 

263 

OATA 

ITRANS(371o)/250/ 

ROFF 

264 

OATA 

I TRANS (3 a 521/251/ 

ROFF 

265 

OATA 

I  TRANS <3: 20 1/252/ 

ROFF 

266 

OATA 

ITRANSd  S  0*1/253/ 

ROFF 

267 

OATA 

I TRANS (3 '961/254/ 

ROFF 

268 

OATA 

ITRA NS (3  a  921/2 55/ 

ROFF 

269 

ROFF 

270 

IF  (SEGONOl  SO  TO  a 

ROFF 

271 

SECOND** TRUE. 

ROFF 

272 

IFETsGET (SI INPUT) 

ROFF 

273 

CONTINUE 

ROFF 

274 

CAU. 

PIN( IOATAylctlFETt I£0) 

ROFF 

275 

IF (IEO.Ea.il  RETURN 

ROFF 

276 

30 
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iUuRjUTINE  PR£ 

I$*I3ARr-X 
NC=NCH 
DO  8  N*l,lo 
IWO*IUATA(N> 

DO  1  Ksl«? 

IN=i>HlFNIM0»i2*KI  .AND. 77778 
IS*XS+i 

JOUTUS>*lJttANSClN*U 

IF  (IS.£a.XN.-NG)  RETURN 

CONTINUE 

CONTINUE 

END 


'  '""lT  >  ’  *  *. 
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ioemt 

PROGRAM  cEMGTM 
BLOCKS 

PROGRAM*  LOCAL 
ENTRY  POINTS 
OiiOJOO  GET 
EXTERNAL  SYMBOLS 
uETSA 


GET  8  AS 


ROFF 


ENTRY 

GET 

ROFF 

290 

EXT 

GET  BA 

ROFF 

291 

Gi-r 

ass 

1 

ROFF 

292 

♦ 

FUNCTION 

GET(FLFILEMAM£» 

ROFF 

293 

♦ 

GET  *  FET 

A09RESSS 

ROFF 

294 

SA1 

A1 

ROFF 

295 

SB2 

XI  PICK  UP  ADDRESS 

ROFF 

296 

3B2 

S0-B2  NEGATE  SAME 

ROFF 

297 

RJ 

GETBA 

ROFF 

298 

3X6 

82 

ROFF 

299 

lT 

BO* B2«  G£T1  IF  82  CT  BO  OK 

ROFF 

300 

3X6 

30  FILE  NOT  FOUND 

ROFF 

301 

*STi 

ED 

GET 

ROFF 

302 

END 

ROFF 

303 

UNJSEO  STORAGE 


15  STATEMENTS 


3  SYMBOLS 


32 
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I  OEM  T 

PROGRAM  LENGTH 
dLOCKS 

PROGRAM*  LOIAL 
cNTRV  POINTS 
OCOOOO  PIN 


PINE  NO 


ENRT 

PIN 

ROFF 

305 

!  ROUTINE 

REAOS  N 

WORDS  FROM  INPUT  FILE  BUFFER  AND  STARTS 

ROFF 

306 

if  empty 

RETURNS  FLAG  IF  EOR 

ROFF 

307 

JSS 

1 

ROFF 

338 

SUBROUTINE  PIN (OATAi NUMBER  »FETADO* IEO) 

ROFF 

309 

-0=1 

ENO  OF  LOGICAL  RECORO 

ROFF 

310 

1*8 

NORMAL  ENO 

ROFF 

311 

SB7 

i 

ROFF 

312 

SA1 

A1 

ROFF 

313 

SB1 

XI 

PICK  UP  OATA  WORD  ADDRESS 

ROFF 

314 

SA1 

A1*B7 

ROFF 

315 

SA5 

XI 

LO AO  NUMBER  OF  WORDS  DESIRED 

ROFF 

316 

SB2 

X5 

82  IS  THE  NUMBER 

ROFF 

317 

SAO 

B7 

XU=1 

ROFF 

316 

SAi 

A1*B7 

FET  ADDRESS 

ROFF 

319 

3A2 

A1*B’7 

ROFF 

320 

SB4 

X2 

IEO  AOORRESS 

ROFF 

321 

SAI 

XI  PICK  IT  UP 

ROFF 

322 

SB6 

XI 

SAVE  FET  AOQRtSS  FOR  RE AO 

ROFF 

323 

SA3 

Xl*3 

REAO  OUT 

ROFF 

324 

1X7 

X5-XC 

THIS  ELIMINATES  ZERO  CHECK  LATER 

ROFF 

325 

SA  4 

A3-B7 

REAO  IN 

ROFF 

32c 

3A5 

A3+87 

RcAO  LIMIT 

ROFF 

327 

SX5 

X5 

MASK  OUT  ALL  UUT  LIMIT  SET  X5«LIHIT 

ROFF 

326 

3SS 

0 

ROFF 

329 

1X1 

X5-X3 

ROFF 

330 

NZ 

X1,PIN2 

SENSE  OUT  NOT  LIMIT 

ROFF 

331 

SAI 

A4-B7 

READ  FIRST 

ROFF 

332 

3X3 

XI 

OUlsFIRST 

ROFF 

333 

1X1 

X4-X3 

LOOK  FOR  OUT*IN 

ROFF 

334. 

ZR 

XI, READ 

ROFF 

335 

1X7 

X7-X0 

DECREMENT  DATA  COUNT 

ROFF 

336 

SA2 

X3 

REAO  OATA  MQRO  AT  OUT 

ROFF 

337 

3X3 

X3+B7 

INCREMENT  OUT 

ROFF 

338 

OUT 

MUST  BE 

SET  TO  ONE  MORE  THAN  THE  ADDRESS  OF 

ROFF 

339 

OF  WORO 

LAST  TRANSMITTED 

ROFF 

340 

3X6 

X2 

ROFF 

341 

SAB 

31 

STORE  AS  REQUESTED 

ROFF 

342 

NO 

X7,PINEN0  SENS  ENO  OF  TRANSFER 

ROFF 

343 

3B1 

B1»B7 

INCREMENT  TEMP  LOCATION 

ROFF 

344 

£Q 

PI  Ml 

LOOP  UNTIL  NO  MORE  DATA 

ROFF 

345 

BXS 

*3 

STORE  UPDATE  OUT 

ROFF 

346 

SA6 

A3 

DONE 

ROFF 

347 

3X7 

j 

ROFF 

340 

SA7 

34 

STORE  2  IN  IEO 

RC^F 

349 

EQ 

PIN 

EXIT 

ROFF 

350 

irt-j4^CA*  lA.^W^i'Lx  iiiuS'iv'IHiiSaiSSl^.  -■<  n  di/ti 


♦ 

THIS 

ROUTINE  CALLS 

CIO  MITH  RECALL  FOR  BINARY  REAO 

ROFF 

351 

*iAU 

8X6 

X3 

ROFF 

352 

3X1 

36 

6ET  BAC*'  FET  AOORESS 

ROFF 

353 

3X3 

3RD I 0*1 08+2 

ROFF 

354 

3A6 

A3 

STORE  OUT 

ROFF 

355 

uXJ 

39 

4LCI0P 

ROFF 

356 

iA2 

XI 

FET  FNA 

ROFF 

357 

* 

CHE3 

K  IF  PREVIOUS 

OPERATION  LEAO  TO  EOR 

ROFF 

358 

8X1 

X3+X1 

24/4LCI0P»36/FET 

ROFF 

359 

•3X3 

>*2 

ROFF 

360 

3X6 

-X3*X2 

GET  STATUS 

ROFF 

361 

AXc 

4 

RIGHT  SHIFT 

ROFF 

362 

ZR 

X6y  NO 

NO  END  OF  RECORD 

ROFF 

363 

£Q 

EO- 

SORRY 

ROFF 

364 

RiAjB 

EQU 

123 

ROFF 

365 

NO 

ass 

V 

ROFF 

366 

3X6 

X3*X2 

MASK  OUT  STATUS 

ROFF 

367 

SX3 

REA08 

BINARY  REAO 

ROFF 

368 

3X6 

X6+X3 

42/LFNtl8/REA08 

ROFF 

369 

SA6 

A  2 

STORt  IN  FET 

ROFF 

370 

3X6 

XI 

PREPATE  CALL 

ROFF 

371 

♦ 

3A1 

87 

CALL 

ROFF 

372 

NZ 

Xl»* 

ROFF 

373 

3Ac 

87 

CALL  CIO 

ROFF 

374 

♦ 

3A1 

87 

ROFF 

375 

NZ 

XI,* 

WAIT  FOR  MTR  TO  AMAKE 

ROFF 

376 

SA4 

44 

GET  NEM  IN 

ROFF 

377 

SAi 

A3 

GET  NE  M  OUT 

ROFF 

378 

£Q 

aIN3 

CHECK  FOR  MORE 

ROFF 

379 

£OF 

3X7 

XO 

ROFF 

380 

3A7 

34 

ROFF 

381 

;Q 

PIN 

ROFF 

332 

£NO 

ROFF 

383 

UNUSED  STORAGE 
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ROFF 


PROGRAM  KOFFUNPUT*03lQB,TA»E9«0,FILMPL«0310B,  TAPE3«0,TAPE4*Q) 

A  F  H  L  (  >  Y  S  )  VERSION  OF  &  APRIL  1972 

IMPLICIT  INTEGER  (A -Z) 

INTEGER  ADOPT, ADOREFyATCTR, ATSIGNyBADCTR, BLANK, BNlyBUFFLyCC, 
ICCC,CCH0L0,CC3V,C£N,C£NT,  CFi.  EX, COLON,  COLUMN,  CS  A  V£,0,  DOLLAR,  DUN*  EQU 
2, EUU, EXCLAM. F ;l, FLIN.FPCC ,FK INZ.FTOVER, FTREC, HEAO.HZERO, OLENG, OUT 
3, OVLlNc, 082, pAGEL,PAGEN,PAGENO. PAGES,  PCS, PCCSV.PERGEN,PERIOO, PLUS, 
<*PM*POS  *PP*PPT lMP*3M*3U0T£1*2UQTE2«R3RACE*RBRACT»RCC*R£FR£C«RPAR£N, 
5RPCC»SAV£*SAViO«STATE«U*OLINE*USCORE*  X*Z*  ZER0»Z4 
COMMON  /INOUF/  INC99)  .ULINE09I  .PRJ.INLENG.INL1 

COMMON  /0UT3JF/  OUT(130>,OVLlNEC13C),BUFFL,OV£RSM.NMORO,OLENG,PSWf 
ILENMAX 

COMMON  /EQtJU'/  E 00(200*4)  «LMIN*LMAX*EQSM 

COMMON  /OPARM/  CC.PCC *  INDENT  , PAGENO,*INECT , PAGEL*PMONSW,RNUNSW 
COMMON  /FELT/  U, NRtC. NFOOT »rTREC»FTNOTE»  NFOOTP »FTOVER» FTLINZ* CTFN 
COMMON  /SWITCH/  A0SW,FILlSW 
COMMON  /SR/  COLUMN. INL2 
COMMON  /SR3/  ITAB(256) 

COMMON  /SRs/  aPELSW 
COMMON  /SP'V  aP 
COMMON  /CAROS/ NC 

LOGICAL  EQSW* J VERS W,PSH,PRU*PM0NSH.RNUMSH*CTFN* FT NOTE 
LOGICAL  FJING,FLAGSV<9) .PRMORE , ASV.FSV 

DIMENSION  SAV.  (26*»>  *  SAVED(2o4),  CSAVE(4>*  INFAKc(130),  INHOLOC81) 
EUUIVALENCt  (  a  AVE(l)  ,  OOT(  1) )  *  ( INU)  *  INF  AKE  (1)  I 
COMMON  /FLINK/  FlINU31)  .  H£A0  (54)  .IOJM  (6) 

COMMON  /SKIP!/  PAGES 

CENTER  INPUT  wINE  STARTS  QFf 


SETTINGS  FOR  PARAMETERS 
SWITCHES  FOR  DEFAULTS,  ETC. 

SET  UP  THE  INITIAL  VALUES  OF  FOOTNOTE  AND  REFERENCE  CARRIAGE  CONTR 
INPUT  LINE  LENGTH 
CARRIAGE  CONTROL  INDICATOR 
l  =  SINGLE  SSACE,  2  *  DOUBLE  SPACE 

default  line  spacing  is  single 

INITIAL  PARAGRAPH  1NOENT  VA.UE 

INITIALIZE  REFERENCE  COUNTER 

PAGING  WOOL  DM  TO  START 

RIGHT-AOJUST  SM  ON  TO  START 

SWITCH  FOR  FILL  MODE 

UNDERSCORE  0?r  TO  START 

PRINT  UN0ERSC3RE  LINE  OFF  TO  START 

OUTPUT  OVERSTRIKE  LINE  OFF  TO  START 

CAPATILIZE  FIRST  WORD 

SWITCH  FOR  C4PITILIZIN5  A  WHOLE  WORO 

COPT  OIRECTLT*  OEFAULT  IS  NO 

LOGICAL  RIGHT, CENTER, SPElSW.REFING, ADSW,  FlLLSW,USW,COPYSW*HOLOSW,N 
IDS W,CCSW,£OSW,CAPSW, ALLCAP, AOS A, FISA, PSA ,FRSW, SP 
DIMENSION  110 JT (24) 


ROFF 

384 

ROFF 

385 

ROrr 

386 

ROFF 

387 

ROFF 

388 

ROFF 

389 

ROFF 

390 

ROFF 

391 

ROFF 

392 

ROFF 

393 

ROFF 

394 

ROFF 

395 

ROFF 

396 

ROFF 

397 

ROFF 

398 

ROFF 

399 

ROFF 

400 

ROFF 

431 

ROFF 

402 

ROFF 

4G3 

ROFF 

404 

ROFF 

435 

ROFF 

4C6 

ROFF 

407 

ROFF 

438 

ROFF 

409 

ROFF 

410 

ROFF 

411 

ROFF 

412 

ROFF 

413 

ROFF 

414 

ROFF 

415 

ROFF 

41E 

ROFF 

417 

ROFF 

418 

ROFF 

419 

ROFF 

420 

ROFF 

421 

ROFF 

422 

ROFF 

423 

ROFF 

424 

ROFF 

425 

ROFF 

426 

ROFF 

427 

ROFF 

428 

ROFF 

429 

ROFF 

430 

ROFF 

431 

ROFF 

432 

ROFF 

433 

ROFF 

434 

ROFF 

435 

ROFF 

436 

ROFF 

437 

ROFF 

438 
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PROGRAM  ROFF 

KS 

DATA  HZcKO/O/ 

ROFF 

439 

S' 

1' 

OATA  OUM/0/,R£FR£C/0/,FC3/l/,RCC/l/.9P/5/,NREF/0/,NR£FP/0/,..Z/0/ 

ROFF 

490 

DATA  ATCTR/0/.BA6CTR/0/ 

ROFF 

441 

OATA  RIGHT, CENTER, REFING, USrf, CAPSW,  A.LCAP/ .F., , F. , ,F .F. T. , ,F./ 

ROFF 

442 

i 

OATA  COPYSMHJLQSH, NOSH, 2CSrf, EOSM, PSA •  FRSM/.F.  ,  .F .F.  ,  .F  .  ,  .F .  ,  .F. 

ROFF 

443 

j 

l»  «F  •/ 

ROFF 

444 

T 

ROFF 

4h5 

£- 

w 

TAOLc  OF  NUMERICAL  VALUES  FOR  GRAPHICS 

ROFF 

446 

s 

ROFF 

447 

P 

1 

OATA  lREF/.»9/ 

ROFF 

448 

' 

OATA  LPAREN/JV7 

ROFF 

449 

K 

I 

OATA  RBRACT/189/ 

ROFF 

450 

I 

J 

OATA  LtiRAC  T/ld7/ 

ROFF 

451 

£ 

! 

OATA  082/22V 

ROFF 

452 

I 

t 

\ 

OATA  L NOT/95/ 

ROFF 

453 

l 

OATA  LcTTF  /233/ 

ROFF 

454 

i 

OATA  UtTTRY/252/ 

ROFF 

455 

i 

5 

OATA  LETTRX/231/ 

ROFF 

456 

i 

OATA  lETTRH /230/ 

ROFF 

457 

OATA  CETTRV/229/ 

ROFF 

458 

£ 

OATA  i.ETTRU/228/ 

ROFF 

459 

l 

OATA  LtTTRI/22// 

ROFF 

460 

t 

* 

OATA  l£TTRS/2jc/ 

ROFF 

4cl 

J 

OATA  LcTTRR/2 1 7/ 

ROFF 

462 

ft 

OATA  LtTTRy/Zib/ 

ROFF 

4o3 

[ 

f 

OATA  LcTTRP/2 l 5/ 

ROFF 

464 

DATA  LcTTRO/214/ 

ROFF 

465 

r 

OATA  LcTTRN/21i>/ 

ROFF 

4b6 

i 

OATA  LtiTTRN/212/ 

ROFF 

467 

% 

1 

OATA  LcTTKl/211/ 

ROFF 

468 

OATA  LETTRK/21C/ 

ROFF 

469 

f 

OATA  LETT RJ/2 ; 9/ 

ROFF 

470 

g- 

OATA  LETTRI/2. 1/ 

R*FF 

471 

OATA  LETTRH/2iO/ 

ROFF 

472 

OATA  L£TTRb/L*9/ 

ROFF 

473 

OATA  LETTRF/U8/ 

ROFF 

474 

OATA  LZTTRE/H7/ 

ROFF 

475 

UATA  lc.TTRO/196/ 

ROFF 

476 

OATA  LtTTRC/l*$/ 

ROFF 

477 

c 

OATA  utTTRO/U*,/ 

ROFF 

478 

OATA  lETTRA/193/ 

ROFF 

479 

OATA  USCQfit/l.,9/ 

ROFF 

480 

p 

OATA  QUOTE2/127/ 

ROFF 

481 

l 

OATA  QUOTEl/125/ 

ROFF 

482 

* 

OATA  OM/1U/ 

ROFF 

483 

s 

OATA  PcRIOO/7 i/ 

ROFF 

484 

f 

OATA  PERCCN/l  ■>  8/ 

ROFF 

485 

OAI A  RPA KtH/9J/ 

ROFF 

486 

OATA  ; ACL  Arl/3 . / 

ROFF 

487 

f 

OATA  UOLLAK/91/ 

ROFF 

488 

OATA  uOlOW/12;./ 

ROFF 

489 

£ 

OATA  lFlEX/19./ 

ROFF 

490 

[ 

OATA  LENT /7V 

ROFF 

491 

1 

OATA  3LANK/6*' 

ROFF 

492 

OATA  ATSIGN/124/ 

ROFF 

493 

36 
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DATA  RtHACE/2.5/,LBRACE/192' 

ROFF 

494 

DATA  AOJFT/53/ , AOOKtF/51/ 

ROFF 

495 

DATA  L8lANK,»LUS,ZER0/1H  ,H*,1H0/ 

ROFF 

496 

OATA  FTIN„/.r ALSt./ 

ROFF 

49T 

* 

INITIALIZE  H;  SPELLING  CHANGE  COUNTER 

ROFF 

495 

SPELSW*. FALSE. 

ROFF 

499 

SP=.FALS£. 

ROFF 

501 

FPCC*L BLANK 

ROFF 

501 

RPCC*L BLANK 

ROFF 

502 

PCC«tduANK 

ROFF 

503 

COLUMN*!) 

ROFF 

504 

AOSW*.TRUE. 

ROFF 

505 

FILLSW*.TRU£. 

ROFF 

506 

ROFF 

537 

* 

ROFF 

505 

* 

INITIALIZE  TRANSLATE  TABLE  FOR  FINAL  OUTPUT  STAGE 

ROFF 

509 

* 

TO  START  WITa  ,  ALL  CHARACTERS  GO  TO  THEHSELVES 

ROFF 

510 

* 

cXCEPT  FOR  0/i  SIGN*  WHICH  GOES  BLANK 

ROFF 

511 

* 

ROFF 

512 

•P 

ROFF 

513 

CALL  INITTR  UNFAKs.) 

ROFF 

514 

ROFF 

515 

-» 

HERE  WE  GO 

ROFF 

516 

•J 

ROFF 

517 

J 

SET  CHARACTERS 

ROFF 

515 

4 

ROFF 

519 

00  1  I  *1 1 21.6 

ROFF 

520 

l 

ITABIII*! 

ROFF 

521 

«# 

R  OFF 

522 

+ 

LETTERS 

ROFF 

523 

00  2  1x193,231 

ROFF 

524 

l 

ITA3U)*l-64 

ROFF 

525 

00  3  1*209, 21T 

ROFF 

526 

3 

ITABtI)*I~64 

ROFF 

527 

00  4  1*226,235 

ROFF 

520 

* 

ITAB<I)*I-t»4 

ROFF 

529 

00  5  1*1, 5*, 

ROFF 

530 

7 

HEAOtl )*8LAN< 

ROFF 

531 

«# 

ROFF 

532 

«# 

ROFF 

533 

** 

* 

THIS  IS  THc  START  OF  THE  HAIN  LOOP. 

ROFF 

534 

*s 

* 

THE  INPUT  LlNi  IS  REAO  HERE 

ROFF 

535 

«# 

ROFF 

536 

3 

CONTINUE 

ROFF 

537 

CALL  PRE  ( IN, 1 , 1 NL£ NG , I EO ) 

ROFF 

535 

GO  ta  (i30,7» ,  IEO 

ROFF 

539 

/ 

CONt  >l£ 

ROFF 

>40 

a 

INL;  LcNGM 

ROFF 

541 

* 

CHECi  F  CONTROL  WORD 

ROFF 

542 

IF  (I  ;ll ,£Q.*ERIOO)  GO  TO  ii 

ROFF 

543 

IF  (EOSW.ANO. .NOT.EQSW)  GO  TO  6 

ROFF 

544 

IF  (NUSW.ANO.EQSW)  SO  TO  6 

ROFF 

545 

•% 

* 

IF  IN  OIRECT  COPT  NODE,  3KI>  CONVERSION,  GO  TO  OUTPUT 

ROFF 

546 

J*8Q 

ROFF 

547 

IF  (COPYSWI  GO  TO  2c 

ROFF 

545 

37 
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ROFF 

549 

•s 

ROFF 

550 

»* 

+ 

CONVERT  THE  „INE 

ROFF 

551 

Jt 

ROFF 

552 

+ 

HANOLs  CAPITALIZATION  A NO  OTHER  SPECIAL  PROBLEMS 

ROFF 

553 

IP  (.NOT.EQSHI  CALL  CRRECT 

ROFF 

554 

I»1 

ROFF 

555 

J*1 

ROFF 

556 

9 

IF  (I.GE.INLI)  GO  TO  20 

ROFF 

557 

ITEMP*IN(I) 

ROFF 

556 

IF  (ATCTR.GT.O)  GO  TO  13 

ROFF 

559 

JTtMP*INCIU> 

ROFF 

560 

IF  CITEMP.LT.129.0R.ITEMP.GE.240)  GO  TO  10 

ROFF 

561 

•N 

* 

SEE  IF  SPECIAL  CHARS  OR  NUMBERS 

ROFF 

562 

IF  (HEMP. i*T.l69.AN0.ITENP..T. 193)  GO  TO  10 

ROFF 

563 

* 

NO*  SO  CONVERT  IF  NECESSARY 

ROFF 

564 

IF  (ITENP.EQ.a82)  GO  TO  10 

ROFF 

565 

IN(J)=IN(Il 

ROFF 

566 

IF  (. NOT. CAPSM.ANO.. NOT. ALLCAP)  INC J) «IT AB(ITEMP) 

ROFF 

567 

« 

«S 

ARt  ME  (NOT)  ING 

ROFF 

566 

IF  (USM)  ULINE ( J) *USCORE 

ROFF 

569 

CAPSH=. FALSE. 

ROFF 

570 

I*m 

ROFF 

571 

J*J*i 

ROFF 

572 

GO  TO  9 

ROFF 

573 

*% 

<# 

ROFF 

574 

*4 

* 

SPECIAL  CHARACTERS  COME  HERE* 

ROFF 

575 

•* 

«P 

ROFF 

576 

10 

CONTINUE 

ROFF 

577 

a 

ROFF 

576 

■* 

+ 

ROFF 

579 

IF  UTEMP.EQ.wREF)  GO  TO  23 

R2FF 

560 

IF  (ITEMP.cQ. AOOFT)  GO  TO  24 

ROFF 

581 

IF  CITEMP.bQ.AOOREF)  GO  TO  25 

ROFF 

582 

IF  (ITfeMP.NE. JLANO  GO  TO  11 

ROFF 

583 

ROFF 

584 

TURN  OF  UNOiRSCORE  SM  IF  8.ANK 

ROFF 

585 

USM».FALSE. 

ROFF 

586 

«# 

TURN  OFF  ALLGAP 

ROFF 

587 

ALcCAPs. FALSE. 

ROFF 

586 

GO  TO  12 

ROFF 

589 

It 

CONTINUE 

ROFF 

590 

s 

NOT  NcANS  UAC^SPACc  FOR  ERASURE 

ROFF 

591 

>  . 

ENU  SENTANLE  PUNCTUATION 

ROFF 

592 

IF  (ITEHP.EQ.UM.OR.ITEMP.EQ.EXCLAN.OR.ITEMP.EQ.PERIOO.OR.ITENP.EQ.  ROFF 

593 

1COLON)  GO  TO  14 

ROFF 

594 

<# 

AT  SIGN  MEANS  BACKSPACE 

ROFF 

595 

IF  (ITEHP.EQ. ATSIGN)  GO  TO  22 

ROFF 

596 

*r 

CENTS  MENAS  CAPITALIZE  NEXT  CHAR*  AND  BLANK  SELF 

ROFF 

597 

IF  (ITEMP.cQ.CENT)  GO  TO  17 

ROFF 

596 

*% 

«P 

IS  IT  TO  UNDERSCORE 

ROFF 

599 

IF  (IT cNP.cQ. JSCORE)  SO  TO  19 

ROFF 

600 

<# 

CFX  MEANS  CAPITALIZE  NeXT  MORO  ANO  BlANK  SELF 

ROFF 

601 

IF  (ITEMP.EQ.CFLEX)  GO  TO  21 

ROFF 

602 

IS  IT  i  TO  FORCE  LOMER  CASE 

ROFF 

603 

38 
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PROS*  AH  ROFF 

IF  (ITcNP.EQ.DOLLAR)  GO  TO  23 
2  00  HE  NEED  IN  UNDERSCORE 

IF  (USM)  ULlNu l  J) *USGORE 
IF  (ITENP.GT.2S&.OR.ITEHP.L2.0)  ITEH>»124 
2  ANT  THING  CLSi  IS  NAPPEO 

12  IN(  J)  =  ITA8(  IT  iMP) 

J=J*1 

IslU 
GO  TO  9 

J 

2  INSERT  AT  $XdN  HANDLER  HERE 

4 

13  JAT*J-ATCTR 
ULINE( JAT) =IT-HP 
ATCTRsATCTR-t 

i*m 

GO  TO  9 

4 

2  •  HL RE.  N023NV.  SET  CAPSN*  KILL  UNDERSCORE 

If  i*m 

IN(J)=ITENP 

IF  (USHJ  UlINu ( J)*USCORE 
J*J*1 

* 

a 

2  IS  THIS  THu.  iMO  OF  THE  SENTENCE 

IF  (JTEHP.cU.DLANKS  GO  TD  15 
IF  (JTEMP.tQO82.0R.JTEMP.Ea.LREF.0R. JTEHP.EQ.AI 
lORtF)  GO  TO  1= 

IF  (JTEMP.NE.RPAREN.AN0.JTENP.NE.QU0TE1.AN0.JTET 
lEMP.Nt.RURACTl  i*J  TO  9 
IN( J)slM(I) 

I=i*l 

J*J*1 

15  CONTINUE 

IF  (IN(I) .mE.jLANK. OR. IN(I*l) *N£. BLANK)  30  TO  9 

IN(  J)*l 

IN( J*1)*8lAN< 

1  =  1*2 
J»J*2 

XNLl=MAXQ (XNL1« J) 
ic  CAPSH*. TRUE. 

USH3.FAu.SE. 

ALLCAP*. FACS*. 


ITRuE. 

GO  TO  9 

2  CENTS  HERE 

17  CONTINUE 

«2APSH= .  TRUE. 
ALlCAP*. FALSE. 

1  =  1*1 
GO  TO  9 

2  FOOTNOTE  STUr=  MERE 


ROFF 

6Q-* 

ROFF 

605 

ROFF 

606 

ROFF 

607 

ROFF 

626 

ROFF 

609 

ROFF 

610 

ROFF 

611 

ROFF 

612 

ROFF 

613 

ROFF 

614 

ROFF 

615 

ROFF 

616 

ROFF 

617 

ROFF 

616 

ROFF 

619 

ROFF 

620 

ROFF 

621 

ROFF 

622 

ROFF 

623 

ROFF 

624 

ROFF 

625 

ROFF 

626 

ROFF 

627 

ROFF 

626 

ROFF 

629 

Q.AO 

ROFF 

630 

ROFF 

631 

O.JT 

ROFF 

632 

ROFF 

633 

ROFF 

634 

ROFF 

635 

ROFF 

636 

ROFF 

637 

ROFF 

636 

ROFF 

639 

ROFF 

640 

ROFF 

641 

ROFF 

642 

R  OFF 

643 

ROFF 

644 

ROFF 

645 

ROFF 

646 

TRUE 

ROFF 

647 

ROFF 

648 

SP«. 

ROFF 

649 

ROFF 

650 

ROFF 

651 

ROFF 

652 

ROFF 

653 

ROFF 

654 

ROFF 

655 

R  OFF 

656 

ROFF 

657 

ROFF 

658 

39 
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18 

IF  (FKSNJ  GO  10  23 

ROFF 

659 

nfoot*nfoqt*i 

ROFF 

660 

CALL  NUMBER  (LBRACT  » NFOOT . R3RACT * INFAKc* I • Jt .NOT  . FILLS W) 

ROFF 

6  cl 

GO  TO  9 

ROFF 

662 

•1 

UNDERSCORE  CONES  HERE 

ROFF 

663 

19 

USM*.NOT.USM 

ROFF 

664 

PRU*.TRUE« 

ROFF 

665 

1*1*1 

ROFF 

666 

GO  TO  9 

ROFF 

667 

1  FORCE  SNAIL  LETTER 

ROFF 

668 

’0 

CAPS**. FALSE. 

ROFF 

669 

ALLCAP*. FALSE. 

ROFF 

670 

1*1*1 

ROFF 

671 

GO  TO  9 

ROFF 

672 

21 

ALLCAP*. NOT .AlLCAP 

ROFF 

673 

1*1*1 

ROFF 

674 

GO  TO  9 

ROFF 

675 

** 

ROFF 

676 

AT  BACKSPACE  AND  OVERSTRIKE.  ATCTR  IS  WJMBER  SEEN  IN  THIS  STRING 

ROFF 

677 

22 

ATCTR*ATCTR*1 

ROFF 

678 

PRUa.TRUE. 

ROFF 

679 

1*1*1 

ROFF 

680 

IF  <INUJ  .tQ.ATSlGN)  GO  TO  22 

R  OFF 

681 

* 

NOT  BACKSPACE  ANO  SUSSTITUE 

ROFF 

682 

% 

J 

NOTCTR  IS  THE  NU8BER  Of  NOT  3  IN  THE  STRING 

ROFF 

683 

<* 

INSERT  REFERENCE  NUMBER 

ROFF 

684 

* 

CODE  IN  PREVIOUS  FOOT-NOTE  NUMBER 

ROFF 

685 

GO  TO  9 

ROFF 

686 

* 

INSERT  REFERENCE  NUMBER 

ROFF 

687 

23 

NRiF*NREF*l 

ROFF 

688 

CAuL  NUMBER  ( -PAREN , NREF, RPAREN, INFA<E .1 , J, . NOT .FILLSW) 

ROFF 

689 

«U  TO  9 

ROFF 

690 

> 

CODE  IN  PRtVIJUS  FOOTNOTE. 

ROFF 

691 

24 

IF  (FRSHT  GO  TO  25 

ROFF 

692 

CALL  NUMBER  (- BRACT ♦NF00T-JT£MP*2Au*R8RACT .INFAKE.lt Jt  * MOT. FILLSM) 

ROFF 

693 

1*1*1 

ROFF 

694 

GO  TO  9 

ROFF 

695 

+ 

COOE  IN  PREVIOUSLY  OEFEKEO  F  REFERENCE  NUMBER 

ROFF 

696 

25 

CALL  NUMBER  ( lPAREN. NREF-JTEMP*24Q»R?AREN» INFAKE . I. J» .NOT.FILLSM) 

ROFF 

697 

1*1*1 

ROFF 

698 

GO  TO  9 

ROFF 

699 

«* 

ROFF 

730 

> 

ROFF 

7G1 

GET  HERE  AFT -R  MAPPING  IS  DONE. 

ROFF 

702 

■J 

ROFF 

703 

ROFF 

704 

26 

IF  (.NOr.CCSRI  GO  TO  28 

ROFF 

705 

GC*IN(1) 

ROFF 

706 

IF  (CC.GT.2)  *0  TO  27 

ROFF 

707 

IF  (CC.EQ.u)  *CC*PLUS 

ROFF 

738 

IF  TCC.EQ.l)  >CC*L8LANK 

ROFF 

709 

IF  (CC.EQ.2)  >CC*2ERO 

ROFF 

710 

2*8 

ROFF 

.  711 

IL£NG*LcNMAX*l 

ROFF 

712 

GO  TO  35 

ROFF 

713 

40 


PROSNAM  ROFF 


IF  (CC.Efl.aLANK)  CALL  HR3LNK  (1) 

60  TO  6 

WIFE  JUI  R-NANENTS  OF  ORIGINAL  LINE. 

00  29  K=J,IN.l 

INlK)*ULANK 

Z** 

lLcNG=J 

IF  (FXLlSM. An J .CENTER)  63  TO  41 

IF  (RIuHT . ANO.FILLSW)  SO  TO  <*6 

IF  (FILLSH)  S3  TO  40 

IF  (LINECf.GI  .PAGED  CALL  EJECT 

IF  IN  NOFILl  NODE,  COPY  THE  LINE  OUT  INTACT 

HNECT*LINECT»CC 

IF  (.NOT.SPckiH)  S3  TO  30 

CAU.  SPELu  (INFAKE.  ILENG) 

ILENG*INL2 

CALL  TRANS  (InFAKE.ILENG) 

CHECK  FOR  CENTER  NOOE  OR  RIGHT  HOOE 
IF  (.NOT.CENTiR. AND. .NOT. RIGHT)  GO  TO  35 
J*0 LENG 
NBLANK«J 

IF  (IN(J) «Wc« iLANK)  GO  TO  32 
JsJ-1 

N8LANK*NU«.AN<*i 
IF  (J)  35, o5.il 
IF  (CENTER)  NJLANK=N8LANK/2 
IF  (NOLANK.lz.O)  GO  TO  35 
NENQ*0l£N6-N3.AN< 

00  33  IJ=1,NEnO 
P0S*0tENo-IJ*l 
IPP1*P03-NULANK 
IN(POS) *IN(Iaal) 

00  34  IJ=i.Ni»uANK 
IN(IJ)*81ANK 
RIGHTS. FALSE. 

CENTER*. FALSE . 

CONTINUE 

IF  (.NOT.CCSM)  SO  TO  3c 

IF  (lINECT.GT.PAGEL.AN0.ee. HE. 0)  CALL  EJECT 
PATCH  UP  OVERSHOOTS  OF  INPUT  SUFFER 
LXN£CT*lIN£CT  tCC 
ILcN4*h*Il£NS 

IF  (U.Nc.d)  I.EN4«HAX0(IwEN4.<*aL£NNAX) 
ILcN1=IlEN*./« 

Z4*Z/h 

IF  (U.NE.b)  WRITE  (U)  PCS*  ( I N ( I >  «X*Z'«.  ILEN1) 

IF  (U.E0.6)  CALL  NICRO  (PCC. IN (Z4) « ILEN1-Z4+1) 
NREC*NKEC«-i 

IF  (ILENG.LT. si)  GO  TO  3* 

00  37  1*81. I. ENG 

INUM8LANK 

IF  (.NOT. PRO)  GO  TO  49 

IF  (U.NE.6)  WRITE  (U)  PL JS , < JLINE (I) , I*Z4» ILEN1) 

IF  (U.EO.G)  GALL  MICRO  (PLUS.ULXNE (Z4>  .ILEN1  -2<*H> 
NRtC*NREC*l 


ROFF 

714 

ROFF 

715 

ROFF 

716 

ROFF 

717 

ROFF 

716 

ROFF 

719 

ROFF 

720 

ROFF 

721 

ROFF 

722 

ROFF 

723 

ROFF 

724 

R  OFF 

725 

ROFF 

726 

ROFF 

727 

ROFF 

728 

ROFF 

729 

ROFF 

73C 

ROFF 

731 

R  OFF 

732 

R  OFF 

733 

ROFF 

734 

ROFF 

735 

ROFF 

736 

ROFF 

737 

ROFF 

738 

ROFF 

739 

ROFF 

740 

ROFF 

741 

ROFF 

742 

ROFF 

743 

ROFF 

744 

ROFF 

745 

ROFF 

746 

ROFF 

747 

R  OFF 

740 

ROFF 

749 

ROFF 

730 

ROFF 

751 

ROFF 

752 

ROFF 

753 

ROFF 

754 

ROFF 

755 

ROFF 

756 

ROFF 

757 

ROFF 

758 

ROFF 

759 

ROFF 

760 

ROFF 

761 

ROFF 

762 

ROFF 

763 

ROFF 

764 

ROFF 

765 

ROFF 

766 

ROFF 

7c7 

ROFF 

760 
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PROGRAM  ROFF 


00  39  I«li(L£No 

ULINc t I) *BLAM* 

ROFF 

7c9 

39 

CONTINUE 

ROFF 

77  0 

PRU*. FALSE. 

ROFF 

77 1 

GO  TO  49 

ROFF 

772 

*» 

ROFF 

773 

CONE  MERE  IF  In  FIcL  N00£ 

ROFF 

774 

% 

«/ 

ROFF 

775 

40 

CONTINUE 

ROFF 

776 

CALL  FILL 

ROFF 

777 

GO  TO  c 

ROFF 

778 

«* 

V 

ROFF 

779 

4* 

ROFF 

760 

wf 

* 

CONE  HERE  IF  IN  CENTER  NOOE. 

ROFF 

ROFF 

781 

782 

«* 

ROFF 

783 

4l 

CALL  FILL 

ROFF 

7  64 

CENTERs.FALS*. 

ROFF 

785 

dNi*BUFFL-l 

ROFF 

766 

CEN*<0LENG-BMt>/2 

ROFF 

787 

<♦2 

CONTINUE 

kOFF  ' 

768 

00  43  KK*1.BN1 

ROFF 

769 

K*BUFFL-KK 

ROFF 

790 

KC£N*K*CEN 

ROFF 

791 

OUT (KCEN)*OUT IK) 

ROFF 

792 

43 

continue”**^  mir,e<KC£M,,,°v*-JNE<K> 

ROFF 

ROFF 

793 

794 

IF  (CEN.EQ.O)  GO  TO  45 

ROFF 

795 

00  44  K*1,CER 

ROFF 

796 

OUT (F*  * BLANK 

ROFF 

797 

44 

IF  (Otft>wHJ  ONLINE (K>«3LANK 

ROFF 

798 

CONTINUE 

ROFF 

799 

buffl*bufflf:;n-i 

ROFF 

800 

45 

CALL  FLUSH 

ROFF 

601 

GO  TO  6 

ROFF 

802 

ROFF 

803 

4# 

* 

* 

COME  HERE  IF  IN  RIGHT  ADJUST  NOOE  FOR  THE  LINE 

ROFF 

ROFF 

804 

805 

■% 

4# 

ROFF 

606 

40 

CALL  FILL 

ROFF 

607 

RIGHT*. FALSE. 

ROFF 

808 

bni*buffl-i 

ROFF 

809 

CEN*0L£NG-«H1 

ROFF 

"  810 

GO  TO  42 

ROFF 

811 

* 

* 

C 

ROFF 

612 

*> 

4# 

CONTROL  MONO  DECODER 

ROFF 

313 

* 

4# 

ROFF 

814 

4 

ROFF 

815 

47 

LZ-LHIN 

ROFF 

816 

ASV*AOSM 

ROFF 

817 

FSV*FILLSM 

ROFF 

618 

CCSV«CC 

ROFF 

619 

PCCSV*PCC 

ROFF 

820 

CC«1 

ROFF 

621 

PCC*LBLANK 

ROFF 

322 

ROFF 

623 

92 
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AOSH*. FALSE* 

ROFF 

824 

FlLLSH*.FAkSE  • 

ROFF 

625 

LINS»LMAX-LMIH*1 

ROFF 

826 

IF  (LIN£CT*LINS.GT. PAGED  CALL  EJECT 

ROFF 

627 

IM0L0*lN(2l 

ROFF 

626 

JH0L0=IN(3) 

ROFF 

829 

IF  (IN (4)  .  EQ.  *LANK.AND.IN(5)  . EQ.  BLAfX. ANO. IN(6 J  .td. BLANK. ANO»IN(7) 

ROFF 

830 

..EC. BLANK*  GO  TO  5 k 

ROFF 

831 

00  48  1*4*80 

ROFF 

632 

IKHOLO (I) *IN( l) 

ROFF 

633 

HOlDSW*.TRUE. 

ROFF 

634 

GO  TO  51 

ROFF 

835 

IF  (.NOT.cUSrit  GO  TO  6 

ROFF 

836 

IF  (LZ.GE.LMAK)  GO  TO  52 

ROFF 

637 

L2*LZ«-1 

ROFF 

838 

00  51  1*1 • INu-NG 

ROFF 

839 

IN(  II  *£QU  (1*4.21 

ROFF 

840 

GO  TO  a 

ROFF 

64l 

INLcNG*8c 

noFF 

842 

LNAA*3 

HOFF 

843 

LNIN*3 

RQFF 

844 

EQSM*. FALSE. 

ROFF 

845 

AOSW*AStf 

ROFF 

846 

FILLSN*FSK 

ROFF 

847 

cc*ccsv 

ROFF 

846 

PCC*PCCSt/ 

ROFF 

849 

ITs.Hf»=IHOLJ 

' 

ROFF 

850 

JTtMP* JHQLu 

ROFF 

851 

IF  (ITEMP.EQ.  .ETTRt.ANO.JTEIP.EQ.LETTRG) 

GO 

TO  53 

ROFF 

852 

0*J-CG 

ROFF 

653 

CALL  HRBLNK  (0) 

ROFF 

654 

IF  (.NOT. HOLDS*)  GO  TO  56 

ROFF 

855 

00  54  1*4 ,80 

ROFF 

856 

INI I)  =  INH0L J(  L  ) 

ROFF 

857 

MOLQSN*. FALSE. 

ROFF 

856 

GO  TO  5c 

ROFF 

859 

ROFF 

860 

ROFF 

861 

ITSNP*IN(2) 

ROFF 

662 

JTkMP*IN(J) 

ROFF 

863 

IF  (ITEHP.tU. wETTRc.ANO.JTEMP.EQ.LETTRQ. 

AND. 

NOSH)  GO  TO  117 

ROFF 

664 

IF  (ITdNP.cJ..ETHc.A..J.JTE'4P.EQ.L£TrR0) 

CALL  EQROFF 

ROFF 

865 

IF  (EQSH.ANO. .NOT.NQSH)  GO  TO  47 

ROFF 

666 

EQSW*. FALSE. 

ROFF 

867 

ROFF 

868 

IF  (IT£MP«cQ..tTTRi.AN0»JTE1P. EQ. LETT RE) 

GO 

TO  6 

ROFF 

869 

•  3R 

ROFF 

670 

IF  (ITENP.cQ.-fcTTR3.AND. JTENP.EQ.LETTRR) 

GO 

TO  GO 

ROFF 

671 

.PP 

ROFF 

872 

IF  (ITtNP.cQ. -ETTR3.ANO. JTENP.EQ.LETTRP) 

GO 

TO  79 

ROFF 

873 

.SP 

ROFF 

874 

IF  (ITENP.EU. -tTTRS.ANO. JTENP. EQ.LETTRP) 

GO 

TO  58 

ROFF 

675 

.BP 

ROFF 

67c 

IF  (ITEHP.EJ.-ETTR3. ANQ.JTENP.EQ.LETTRP) 

GO 

TO  59 

ROFF 

877 

.FI 

ROFF 

878 

43 


PROwRAH 


ROFF 


IF  (IT£NP.E4.-£TTRF.AN0.JT£HP.£0.LETrRI> 
.NF 

IF  1 XT tNP  .-4.  -ETTRN.ANO.JTEHP.EQ.t-ETrRF) 
.AO 

IF  (IT6HP.-4.k.£TTRA.ANO«JTEll?«£4.4£TrRO) 
.NJ 

IF  (irfcHP.cQ.-tTTRN.ANO.JTEIP.EO.LETrRJ) 

•  UL 

IF  (ITEHP. £4. '.ETTRL.ANO.JTEHP. EQ.LETTRL) 
.CO 

IF  (II EHP. cQ. LcTTRU. ' SO. JTciP. E4.LETTR0) 
.HA 

IF  (IT£HP.t4..ETTRM.ANl).JTEHP.2G.l.ETrRAI 
.OS 

IF  (If EHP. E4. .ETTRO.ANO.JTEHP.EO.lETf RS) 

•ss 

IF  (ITEHP. £4. .cTTRS.ANO.JTENP.EO.LETTRSJ 
.SK 

IF  (ITEHP. t4. uETTRS.ANO. JTEHP.EQ.LETrRKI 

•  Nt 

IF  (ITfcHP  *c4. >£TTRN. ANO. JTEHP. E4.LETTRE) 
.»F 

IF  (ITXHP.£4.-£TTRR.AH0.JTEN».E4.UTrRFI 
.RE 

IF  (ITEHP. c4..£TTRR. AND. JTEHP. E4.lETfR£> 
,RP 

IF  (IT  £HP  •  Ei).  .ETTRR*  A  ND • JTEHP .  E4.LETTRP) 
PA 

IF  (ITEHP.EQ..ETTRP.ANO. JTEHP.EQ.LETrRA) 

.rt: 

IF  (ITEHP.&4. .£TTR3. ANO. JTEHP. EQ.CETTRN) 
.FN 

IF  (ITEHP. EQ. lETTRF.ANO. JTEHP. E4.LETTRN) 
.FE 

IF  (ITEHP. £4. uETTRF. AND. JTEHP. E4.LE TIRE) 
.IN 

IF  (ITEHP . £4. lETTRI . ANO . JTEHP. EO.EETrRN) 
.TR 

IF  (ITEHP. E4..ETTRT. AND. JTEHP. E4.EETTRR) 
.Ct 

IF  (ITEHP.E4. .ETTRG. ANO. JTEHP. EG.LETf R£) 
.RT 

IF  (ITEHP.EQ.EETTRR.ANO.JTEHP.EQ.LETTRT) 
.CM 

IF  (ITEHP. EQ.-cTTRC.ANO.JTEHP.EQ.tETTRH) 
.UN  UNOENT 

IF  (ITEHP. tQ.-ETTRd. AND. JTEHP. E4.LETTRN) 
.NC 

IF  (ITEHP. £4. .ETTRN.ANO.JTEHP. EQ.LETTRC) 
.NS 

IF  (ITEHP. EQ..ETTRN.  AND.  JTEHP. E4.UTTRSI 

•  HE 

IF  (ITEHP. c4.*ETTRH.  ANO.  JTEHP.  E4.UTTRE) 
.Pu 

IF  (IT EHP. t4< -C.TTRP.  ANO.JTEHP.  EQ.LETfRU) 


SO  TO  67 

ROFF 

879 

ROFF 

660 

SO  TO  68 

ROFF 

881 

ROFF 

862 

SO  TO  69 

ROFF 

883 

ROFF 

864 

GO  TO  70 

ROFF 

885 

ROFF 

686 

GO  TO  71 

ROFF 

887 

ROFF 

668 

GO  TO  61 

ROFF 

889 

ROFF 

890 

GO  TO  62 

ROFF 

891 

ROFF 

892 

SO  TO  63 

ROFF 

893 

ROFF 

694 

GO  TO  64 

ROFF 

895 

ROFF 

696 

GO  TO  72 

ROFF 

897 

ROFF 

696 

GO  TO  73 

ROFF 

899 

ROFF 

900 

SO  TO  102 

ROFF 

931 

ROFF 

932 

GO  TO  104 

ROFF 

903 

ROFF 

904 

GO  TO  106 

ROFF 

905 

ROFF 

906 

GO  TO  74 

ROFF 

937 

ROFF 

908 

GO  TO  76 

ROFF 

909 

ROFF 

910 

GO  TO  90 

ROFF 

911 

ROFF 

912 

GO  TO  94 

ROFF 

913 

ROFF 

914 

GO  TO  77 

ROFF 

915 

ROFF 

916 

GO  TO  83 

ROFF 

917 

ROFF 

916 

GO  TO  84 

ROFF 

919 

ROFF 

920 

GO  TO  85 

ROFF 

921 

ROFF 

922 

60  TO  86 

ROFF 

923 

ROFF 

924 

GO  TO  98 

ROFF 

925 

ROFF 

926 

GO  TO  87 

ROFF 

927 

ROFF 

926 

GO  TO  68 

ROFF 

929 

ROFF 

930 

GO  TO  123 

ROFF 

931 

ROFF 

932 

GO  TO  116 

ROFF 

933 

; 7 


38 


39 


30 


31 


32 
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PROGKAN  ROFF 


>NP 


.CC 


,CX 


i  RA 


.PS  SET  FOOTNOTE  SPACING  TO  CURRENT  ^ALUE 


.SF 


.PL  SET  PAGE  .ENGTH  DEFAULT  *8  LINES 
IF  (IT ENP.cQ. .ETTRP .AND. JTE1P. £0. LETT RL) 
.CT  NUMBER  FFOTNOTES  AND  CONTINUOUSLY 
IF  (ITEMP.cO.  lcTTRC. ANO.JTENP.EQ.LETTRTT 
.AL 

IF  (ITEMP.EU. .tTTRA .AND. JTENP.EQ.LETTRL) 
.FR 

IF  (ITENP.EO. -^TTRF.ANO.JTEMP.EQ.LETrRR) 
.EF  ENO  00  FILE 

IF  (IT EMP.  c.U.  ..ETTR-.  ANQ .JTEMP.  EGt.LETT RF) 

.*  TURN  UNDERSCORE  SK  ON 

IF  (ITEMP.cQ. JSCOREI  GO  TO  35 

.OF  X  TURN  All  CAP  ON 

IF  (IT EMP.  til.  .FLEX)  GO  TC  63 

UNKNOWN  CONTROL  WORD.  RENEM3ER 

BAOCTR=dAOCTRH 

CALL  oispla(i:h**error  AT  ,NC) 

GO  TO  6 

.SP  N  N  BLANK  LINES  INSERTED 
IF  (FILLSHT  CALL  FLUSH 
CALL  NR8LNK  ( iNTEGCINt 4*1) ) 

GO  TO  6 

•BP  BEGIN  A  NEW  PAGE 
IF  (FILLSNJ  CALL  FLUSH 
CALL  s.  JECT 
GAPSN= • TRUc. 

GO  TO  6 

, 3R  BREAK  ANO  START  A  NEW  LINE 
FOR  NOH  *  SET  CAPSH 
CAPSW=.TRUl. 

if  (fillshi  call  Flush 
GO  TO  6 

.CO  SET  COPY  SWITCH  ON.  COPY  INPUT*  I 
COP YSH*. TRUE. 

if  (fillsh)  call  Flush 

u*8i 

GO  TO  6 

• NA  HAP*  30  SNITCH  OFF 
COP YSWs. FALSE. 


US 


ROFF 

934  | 

GO  TO  119 

ROFF 

935  1 

ROFF 

936  1 

GO  TO  120 

ROFF 

937  % 

ROFF 

938  | 

GO  TO  121 

ROFF 

939  I 

ROFF 

9lO  j 

GO  TO  89 

ROFF 

9<*1  1 

GO  TO  114 

ROFF 

9*»2  1 

GO  TO  11$ 

ROFF 

9-3  | 

ROFF 

944  3 

GO  TO  99 

R  OFF 

945  § 

E 

ROFF 

946  § 

GO  TO  101 

ROFF 

9h7 

ROFF 

948  I 

GO  TO  113 

ROFF 

949  1 

ROFF 

950  3 

SO  TO  100 

ROFF 

951  | 

ROFF 

952  1 

GO  TO  112 

ROFF 

953  3 

ROFF 

954  | 

50  TO  116 

ROFF 

955  J 

ROFF 

956  1 

GO  TO  122 

ROFF 

957  | 

ROFF 

958  I 

GO  TO  130 

ROFF 

959  3 

ROFF 

9c  0 

ROFF 

961 

ROFF 

962 

ROFF 

963 

ROFF 

964 

ROFF 

965 

ROFF 

966 

ROFF 

967 

ROFF 

968 

ROFF 
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ROFF 
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ROFF 

971 

ROFF 

972 

ROFF 

973  ! 

ROFF 

974 

ROFF 

975 

ROFF 

976 

ROFF 

977 

ROFF 

978 

ROFF 

979 

ROFF 

980 

ROFF 

981 

D  HAPPING 

ROFF 

982 

ROFF 

983 

ROFF 

984 

ROFF 

985 

ROFF 

986  { 

ROFF 

987  1 

ROFF 

988  i 
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PROGRAM 


ROFF 


1*0  TO  6 

.OS  oooat; 


SPACE 


m 

U 

b3 

IF  (FILwSH) 

f. 

t- 

CC*2 

•>' 

PCC«ZtR0 

1 

GO  TO  6 

£ 

.SS  SINGLE 

r  t 

<• 

IF  (FILLSH) 

| 

CC*1 

s 

PCC*LULANK 

a 5 


>6 


a7 


>a 


* 

o9 


* 

70 


n 


\V- 


72 


73 


74 


GO  TO  6 
USW*.TRUE. 

PRU*.TRU£. 

GO  (0  c 

•CFX  TURN  OH  FOR  NEXT  LINE 
AM.CAPs.TRUE. 

GO  TO  6 

.FI  ENTER  'ILL  HOOE 
FltLSd* .TRUE. 

AOSH  s  .TRIE. 

GO  TO  6 

.NF  ENTER  NOFILL 
FILLSH*. FALSE. 

AOSMs. FALSE. 

CALL  FLUSH 
GO  TO  6 

.AU  TURN  ON  RIGHT  A 0 JUST  HOOE 
IF  (FILLSH)  GALL  FLUSH 
AOSH*. TRUE. 

FIlLSH*. TRUE. 

GO  TO  c 

.NJ  TJRN  OFF  RIGHT  AOJUST  NODE 
IF  (FILLSH)  GALL  FLUSH 
AOSH*. FALSE. 

FILLSH*. FALSE. 

GO  TO  6 

.LL  SET  LINE  *ENGHT 
IF  (FILLSH)  GALL  FLUSH 
0LENG*lNTEG(IN.4.eG> 

L£NHAX*HAXO (lENNAX.OLENG) 

GO  TO  6 

.SK  N  LSAVc.  H  BLANK  PAGES  AT  THE  NEXT  OPPORTUNITY 
AOOITIVE  ON  N  UNTIL  EXECJTEO. 

PAu£S*lNT£G(lN  «<**!) 

CALL  SKIP 
GO  TO  6 

•NE  N  SKIP  TO  PAGE  IF  THER  ARNN  T  AT  LEAST  N  LINES 
ON  CURRENT  PA*£. 

L INS* INTEL  (IN*  4. 0) 

IF  (LI NElT+LINS.LE. PAGED  GO  TO  75 
IF  (FILLSH)  GALL  FLUSH 
CALL  cJECT 
GO  TO  6 
.PA  START  A 


Si H  PAGE  HITH  GIVEN  NUNBER.  OFLT  IS  1 


if  (fillsh)  gall  flush 
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1005 

ROFF 

1006 

ROFF 

1007 

ROFF 

1008 

ROFF 

1009 

ROFF 

1010 

ROFF 

1011 

ROFF 

1012 

ROFF 

1013 

ROFF 

1014 

ROFF 

1015 

ROFF 

1016 

ROFF 

1017 

ROFF 

1018 

ROFF 

1019 

ROFF 

102(f 

ROFF 

1021 

ROFF 

1022 

ROFF 

1023 

ROFF 

1024 

ROFF 

1025 

ROFF 

1026 

ROFF 

1027 

ROFF 

1028 

ROFF 

1029 

ROFF 

1030 

ROFF 

1031 

ROFF 

1032 

ROFF 

1033 

ROFF 

1034 

ROFF 

1035 

ROFF 

1036 

ROFF 

1037 

ROFF 

1030 

ROFF 

1939 

ROFF 

1040 

ROFF 

1041 

ROFF 

1042 

ROFF 

1043 

*6 
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4FWL-TR-72-139 


PROGRAM 


«of; 


PAG£NO=INTEG( IN.*.  1) 

ROFF 

1044 

CALL  EJECT 

ROFF 

1045 

rs 

CONTINUE 

ROFF 

1046 

GO  TO  6 

ROFF 

1047 

* 

•PM  SET  PAGING  MODE. 

ROFF 

10  *.8 

76 

PHS  INI EG (IN. 4.1) 

ROFF 

1049 

IF  (PM.GT.2)  GO  TO  57 

ROFF 

1050 

PMONSH=»F ALii. 

ROFF 

1051 

IF  (PM.EU.3)  GO  TO  6 

ROFF 

1052 

PNONSW=.TRUE. 

ROFF 

1053 

IF  (PM.EQ.1.AN0.RNJMSW.0R.PN.EQ.2.AND..N0T.RNUMSW)  PAGENO*l 

ROFF 

1054 

RNUMSM*. FALSE. 

ROFF 

1055 

iF  (PM. £0.1)  GO  TO  6 

ROFF 

1056 

RNUMSWs.TRUE. 

ROFF 

1057 

GO  TO  6 

ROFF 

1058 

** 

.IN  N  INDENT  H  SPACESS.  OOFlT  OS  3 

R  OFF 

1059 

* 

MOVES  OUTPUT  TO  t)  ♦  1  PRINT  POSITOON 

ROFF 

1060 

/7 

if  (Fillsw)  call  flush 

ROFF 

1061 

lNOENT*lNTEG(IN.A.i) 

ROFF 

10&2 

iiUFFLaINO£NT 

ROFF 

1063 

IF  (INDENT. £0.0)  GO  TO  6 

ROFF 

1064 

IF  (INDENT.Gl. 129. OR. INOENT.LT. 0)  UAOC TR*BA0CTR*1 

ROFF 

1065 

IF  (INOENT.GI .129. OR. INOENT.lT. 0)  GO  TO  6 

ROFF 

1066 

00  78  I=i,INJiNT 

ROFF 

1067 

r8 

OUT(I)=P£RC£V 

ROFF 

1068 

GO  TO  6 

ROFF 

1069 

s 

-P 

.PP  N  NEW  PARAGRAPH.  HIH  INDENTING 

ROFF 

1070 

* 

START  FIRST  -INE  OF  PARAGRAPH  AT  PP* INDENT 

ROFF 

1071 

* 

IF  N  IS  NULL  JSE  PRECIOUS  VAlUE.  OTHERWISE,  CONPUTt  A  NEH  ONE 

ROFF 

1072 

■J 

SET  CAPS*  ON.  AS  IN  8REA<*  .DR 

ROFF 

1073 

1 9 

IF  (FILLS*)  CALL  FLUSH 

ROFF 

1074 

■* 

WHAT  IS  N 

ROFF 

1075 

PPTEMP*INT  EG (IN. A. *1) 

ROFF 

1076 

* 

./ 

IF  NEG  .  WAS  OEFAULTEC 

ROFF 

1077 

IF  (PPTtMP.LI . 0)  S3  TO  8J 

ROFF 

1078 

J 

OTHERWISE  KEGOMPUTl 

ROFF 

1079 

PP=PPTEMP 

ROFF 

1080 

3 

INSERT  JLANKS 

ROFF 

1081 

J3 

PPT  £MP*PP*INOlNT 

ROFF 

10  82 

IF  (PPTEHP.LE. 0)  GO  TO  82 

ROFF 

1083 

00  81  I»1,PPT-.MP 

ROFF 

1084 

91 

OUT (I) aPERCEN 

ROFF 

1085 

52 

GUFFLaPPTEMP 

ROFF 

1086 

CAPS**. TRUE. 

ROFF 

1087 

GO  TO  c 

ROFF 

1088 

ROFF 

1089 

* 

.v;<  Cl  TO  C 2 

ROFF 

1090 

•s 

■4 

ON  OUTPUT  «  G INVERT  ALL  INSTANCES  OF  Cl  TO  C2 

ROFF 

1091 

f* 

*J 

ROFF 

1092 

53 

CALL  TR  (IN..I 

ROFF 

1093 

GO  TO  6  ' 

ROFF 

1094 

•» 

•» 

.Cc  CENTER  TH-  LINE 

ROFF 

1095 

54 

CENTER3. TRUE. 

ROFF 

1096 

IF  (FILLS*)  GALL  FLUSH 

ROFF 

1097 

CAPS**. TRUE. 

ROFF 

1098 

R7 
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e 
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4# 

37* 
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u 
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92 
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34 


AFVl-TR-72-130 


PROGKAH 


ROFF 


LOOK  FOR  SPtUlNS  ERRORS 


CALC  INITTR  (INFAK-) 

iio  ro  6 

•CH  SPELL IN i  H00£  • 

SPELSRs.TRUt. 

CAM.  SEARCH  <IN»4flNXJ) 

IF  (lNIJ«tO«2l  60  TO  57 
00  TO  c 

»eiw.?rJIS. SPtu"1*  c"‘"5£s 

GO  TO  6 

XU?""*  “**»*  «  «" 

CC.aO 
GO  TO  6 

,he  ne”  3*«» 

Go  ^LS"'  5,u  "■«« 

t"?«s2?r2S';o"o!*''e  ,R£  ,JFF£,,S 

^<?f?wg<r|;'Jo“  ,H£  F’"",,I£  m“£ 

ASSIGN  92  TO  STATE 
GG  TO  125 
CALL  FLUSH 
GO  TO  93 
FTlNG*.TRUt, 

LlN£CT*d 
NREC«0 

0*4 

IF  (.N0T.FTN2JE)  LINECT*2 
FTNOTa=,TRUE. 

SET  N£W  WALUiS 
A0SH«.TRUt. 

CAPSH" ,TRUt» 

FILLSW«,TRUE. 

COPTSRs.FALS;. 

SCSH*«FALSt« 

PSN*PSA 
GC*FCC 
PCC»FPCC 
IN0ENT*3 
SETUP  FOOT  NOT': 

OUT (1> sLSRAUT 
NFOOTP»NFOQT=tl 
8UFFL*1 

OUTTdUFFU  «p--?CPHCT  *Nrd0irp»,eRACir*GOr*  QGH.BUFFl*  .TRUE.* 

N«GRO*0 

GO  TO  6 

END  FOOT  NOTi  HERE 
IF  <FR SR)  GO  TO  104 


48 


STUFF  IN  OUTPUT  SUFFER 


ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 


1099 

1100 
1101 
1102 

1109 

1104 

1105 

'  uce 

1107 

1100 

11C9 

1110 
1111 
1112 

1113 

1114 

1115 
1115 
1117 
111S 

1119 

1120 
1121 

‘  1122 

1123 

1124 

1125 

1126 

1127 

1128 

1129 

1130 

1131 

1132 

1133 

1134 

1135 

1136 

1137 
.138 

1139 

1140 

1141 

1142 

1143 

1144 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 


ra 


n?  »wi"iTi»*Tnm“i‘lil 


4FNL-TR-72-13Q 


PROGHAH  RO  F? 


CALL  FLUSH 

ROFF 

1154 

XsLlNcCT+CSAv . (1) 

ROFF 

1155 

J 

00  Mb  HAVE  S3  it TING  IN  THE  SAVED  0JFrER  TO  PRINT 

ROFF 

1156 

PRHOREs« FALSI • 

ROFF 

1157 

IF  (FlAGSV(2) .AN0.SAV£0(263).lT,0)  PRNORE*. TRUE . 

ROFF 

1158 

IF  (PRMORc/  X=X*CSAVE (2) 

ROFF 

1159 

J 

MH..RE  will  THi  FOOTNOTE  PUT  US  ON  THE  PAGE 

ROFF 

1160 

IF  (X.lE.PAGI;.)  GO  TO  95 

ROFF 

1161 

IF  THc I  IS  TH.  FIRST  FOOTNOTE  ANO  ARE  ME  AT  BOTTOM  -  FORGET  IT 

ROFF 

1162 

IF  (PRMURc .AN J .NFOOT c  £0.1 .AND .X.GT.P4GEL-3)  GO  TO  97 

ROFF 

1163 

X=MAXJ (X-PAbcuO) 

ROFF 

1164 

FTOVER=FTOVER»X 

ROFF 

1165 

LiN£cr=LiNccr-x 

ROFF 

licfc 

IF  (PR MORE!  2SAVECi)=C$AVE(l)*CSAVE(2) 

ROFF 

1167 

-J 

UPuATt  FOOTNOTE  COUNTERS  ANO  RESTORE  OLD  BUFFERS 

ROFF 

1168 

35 

FTLlNZ=FTuINZ«-LIN£GT 

ROFF 

1169 

FTRcC=FTREC«>N*EC 

ROFF 

1170 

UNECf  «LlNcCr*CSAVEa> 

ROFF 

1171 

ASSIGN  96  TO  aTATE 

ROFF 

1172 

GO  TO  12tt 

ROFF 

1173 

36 

CONTINUE 

ROFF 

1174 

FTING=. FALSE. 

ROFF 

1175 

GO  TO  6 

ROFF 

1176 

37 

FTMOTi=. FALSI. 

ROFF 

1177 

FTlINZ^LINcCT 

ROFF 

1178 

LINcCT-CSAVE(l) 

ROFF 

1179 

CSAVE(l)  =FTU  HZ 

ROFF 

1180 

CALL  EJECT 

ROFF 

1181 

F  f  NOTc.  =  .  TRUE. 

ROFF 

1182 

LlNECIsJ 

ROFF 

1183 

GO  TO  95 

ROFF 

1184 

38 

IF  (FILLaM)  SILL  FLUSH 

ROFF 

1185 

dUFFL-HAXJ  (0,  IN0£NT'INTEG(IN« 4 .INDENT) ) 

ROFF 

1186 

GO  TO  6 

ROFF 

1187 

J'9 

FCC=GC 

ROFF 

1188 

FPCCsPCC 

ROFF 

1189 

GO  TO  fa 

ROFF 

1190 

too 

PAGEL=INT£GUn»4,48) 

ROFF 

1191 

GO  TO  c 

ROFF 

1192 

101 

RCC*CC 

ROFF 

1193 

RPCC*PCC 

ROFF 

1194 

GO  TO  6 

ROFF 

1195 

% 

■* 

ROFF 

1196 

* 

START  REFERENCE 

ROFF 

1197 

102 

IF  (REFING)  SILL  FLUSH 

ROFF 

1198 

IF  (.NOT. REFING)  NREC«0 

ROFF 

1199 

ASSIGN  103  TO  STATE 

ROFF 

1200 

IF  (.NOT. REFING)  GO  TO  125 

ROFF 

1201 

10  3 

CONTINUE 

ROFF 

1202 

CAPSMs.TRUE. 

ROFF 

12C3 

COPYSM*. FALSE. 

ROFF 

1204 

CCSM*. FALSE. 

ROFF 

1205 

PSM»P5A 

ROFF 

1206 

AOSM*.TRUE. 

ROFF 

1207 

FlLLSM*. TRUt. 

ROFF 

12.8 
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PROGRAM  ROFF 


INDENT  *J 

ROFF 

1209 

REF ING** TRUE* 

ROFF 

1210 

CC*RCC 

ROFF 

1211 

PLC»RPCC 

ROFF 

1212 

U*3 

ROFF 

1213 

UUFFL*1 

ROFF 

1216 

NR£FP«NKEFPU 

ROFF 

1215 

CALL  NUMBER  ( -PAREN, NREFp, R»AREN»OUT,  DUN , BUFFI *  .TRUE.  ) 

ROFF 

1216 

0UTC8UFFL)*P£RC£N 

ROFF 

1217 

NNURO*0 

ROFF 

1216 

60  TO  c 

ROFF 

1219 

■Jf 

ROFF 

1220 

J 

ENO  REFERENCE 

ROFF 

1221 

«# 

ROFF 

1222 

ia* 

ASSIGN  U>  TO  STATE 

ROFF 

1223 

IF  (FILLStO  CALL  FLESH 

ROFF 

1224 

refrec»refre;»nrec 

ROFF 

1225 

GO  TO  126 

ROFF 

1226 

10$ 

LINECT*CSAVEU) 

ROFF 

1227 

REFING*. FALSE. 

ROFF 

1226 

GO  TO  6 

ROFF 

1229 

* , 

■* 

PRINT  FOOTNOT-S 

ROFF 

1230 

106 

IF  <REFRcC.LE.0l  So  TO  6 

ROFF 

1231 

OO  107  K»i tREFREC 

ROFF 

1232 

107 

BACKSPACE  J 

ROFF 

1233 

if  (FiLLSN)  gall  flush 

ROFF 

1234 

CALL  EJECT 

ROFF 

1235 

* 

OUTPUT  1H  .MiFERENCES* 

ROFF 

1236 

IIOUT <1)*LBLANK 

ROFF 

1237 

1 1 OUT <  2) attTTRR 

ROFF 

1238 

IIOUT ( 3) *LETTRE 

ROFF 

1239 

IIOUT  U>*L£TTRF 

ROFF 

1240 

IIOUT <5)*lETI  <E 

ROFF 

1241 

IIOUT (61 *t£TT  RR 

ROFF 

1242 

II0UT< 7) »LETT RE 

ROFF 

1243 

IIOUT <6) *LETT *N 

ROFF 

1244 

IIUUT(9I*lETT<C 

ROFF 

1245 

UOUTUO)  slETIRE 

ROFF 

1246 

i  i  out  c  ulster  irs 

ROFF 

1247 

CALL  MICRO  <II0UT<1> ,IIOJT<>> ,10) 

ROFF 

1246 

OUTPUT  lrt*,  A1TH  UNDERSCORES 

ROFF 

1249 

IIOUT ( 11 sPLUS 

ROFF 

1250 

00  106  I*2«ll 

ROFF 

1251 

13d 

IIOUT <11 aUSCORL 

ROFF 

1252 

CALL  HICRO  aiUUm)«IIOJT(2)tlO) 

ROFF 

1253 

LlNcCT*LlNiCT»2 

ROFF 

1254 

LR=LcNNAX«-1 

ROFF 

1255 

CO  Uu  <»l,RErR£C 

ROFF 

1256 

«• 

10J1  FORMAT (lilAl) 

ROFF 

1257 

REmO (3 ,  10  j 1)  <FlIN<II,I*1,LR> 

ROFF 

1258 

RcrtO  til  (FLlN(I)  ,  I*i»LRI 

ROFF 

1259 

IF  <EQF<3»>  1U,109 

ROFF 

1260 

109 

CONTINUE 

ROFF 

1261 

CCL«FLIN<1) 

ROFF 

1262 

IF  (LINECT *GT •  PA*£i.*AN0*3CC*NE*PLUS)  CALL  EJECT 

ROFF 

12c3 

50 
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PROiKAN  ROFF 

CAUL  MICRO  <FlIN(1>  *»*LIN(2>.LR-1> 
LlN£Cr*LlNcCm 

IF  tCCC.£a«Z;RO>  LlNcCT*LIN£OT*i 

110  IF  (CCC.&4.P-US)  LlNECTs.INECT-l 

111  CALC  s.Jt(,r 
K£FRtC*J 
NRtF*. 

NRtFP*0 

GO  TO  6 

** 

J  Sir  THE  FOOT  SUN9EK  TO  A  SPECIFIED  VALUE 

112  CTFN*. TRUE • 

GO  TO  6 

115  NFOOT*lNf  £G(lX«<*«il 

NFOOTP-NFOOT 
GO  TO  c 

tl<*  EOSH*. TRUE • 

GO  TO  6 

115  NOSH*. TRUE. 

GO  TO  c 

116  C.OSH*.  FAlSc. 

NOSH*. FALSE* 

GO  TO  6 

11/  IF  (FlLkStf)  J ALL  FlUSH 
EOS  R*. TRUE. 

CALL  HRdLNK  IL> 

GO  TO  6 

118  PSH*.TRUE. 

PSA*. TRUE. 

PAGcN*PAGENO-l 
GO  TO  6 

.19  PSH*.FALSE. 

PSA*. FALSE. 

GO  TO  b 

.21  IF  1FILLSH)  CALL  FlUSH 
IF  <CCSH1  uO  III  c 
AOSA*AOSH 
FISAsFILLSK 
PSA*PSH 
CCHOLO»CC 
CCSH*. TRUE. 

PSH*. FALSE. 

COPTSH*. TRUE. 

AOSH*.FALSl. 

FILLS**. FALSE. 

GO  TO  6 

121  CCSH*. FALSc. 

AOSW*AOSA 
FILLSH*FISA 
PSH*PSA 
COPTSH*. FALSE. 

CAPSH* .FALSE. 

CC*CCHOlO 

PCC*L8LANK 

IF  (CC .£0.2)  3CC*Z£R0 


R0FF  1264 
RUFF  12c5 
ROFF  1266 
R0FF  126 7 
ROFF  1260 
ROFF  12c9 
ROFF  1270 
ROFF  1271 
ROFF  1272 
ROFF  1273 
ROFF  1274 
ROFF  1275 
ROFF  1276 
ROFF  1277 
ROFF  1270 
ROFF  1279 
ROFF  1200 
ROFF  1281 
ROFF  1202 
ROFF  1283 
ROFF  1264 
ROFF  1285 
ROFF  1286 
ROFF  1287 
ROFF  1280 
ROFF  1269 
ROFF  1290 
ROFF  1291 
ROFF  1292 
ROFF  1293 
ROFF  1294 
ROFF  1295 
ROFF  1296 
ROFF  1297 
ROFF  1296 
ROFF  1299 
ROTF  1300 
ROFF  1301 
ROFF  1302 
ROFF  1303 
ROFF  1304 
ROFF  1305 
ROFF  1306 
ROFF  1307 
ROFF  1300 
ROFF  13 09 
ROFF  1310 
ROFF  1311 
ROFF  1312 
ROFF  1313 
ROFF  1314 
ROFF  1315 
ROFF  1316 
ROFF  1317 
ROFF  1318 


\ 

i 

F 


c 
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AFWL-TR-72-139 


PRU.*-<AN 


ROFF 


122 


123 

12* 


IP  <CC.£C**J)  *CC*RlIJ S 

PAG£H*PAGtNO-l 

GO  TO  c 

CONTINUE 

FRSH*.TRUE. 

GO  ro  6 
00  12*  1*1,54 

GO  TO  6 


125 


126 


127 


121 


129 


133 


10  TO  STATE,  (92*103) 


CONTINUE 

^'«SLi.[?L:<"',ENr  s,UFf « 

SAtfcO(l)*SAtf£  ( I) 

FLAGS)/  (l)*AOS* 

FLAGS Y (2)  *Pl.i.SM 
PUGSD(3)*CAPaw 
FLAGS)/  (4)  *0S-< 

FLAGSl/(5)apRj 
FLAuSV (c) SAL.3AP 

flagsv  <7> aco^rsw 

FLAGSV (3) =CCS* 

Ft AGS V (9) =psrf 

csAt/£(i>atiN*;r 

CSAtfE ( 2) *CC 
CSAV£(3lapcc 
C  SAVE(M)*ZNQz\r 
IF  (.NOT. 01/69*4) 

00  12?  Isi,i3. 

OVUNt  (I)  *Ld.  ANK 
OI/ENSW».FAlSE. 

«psJSo-TAT£’  *92»il3*> 

RfcSTQRc  SAVEO  BUFFERS 
CONTINUE 
CC*CSA9£(2) 

PCC*CSA9£ (3) 

IN0£NT*CSAV£(*> 

A0SN*FLAGSV(1) 

F  1LLSH*FL  AoSV  (  2| 

C  APSN*F  LAGSt/(  3 1 
OSW.FLAGSVU, 

RRU*Ft.  AGS )/(:,) 

ALLCAP*FL AGSVI t) 
C0PYStf*FUw*/<7) 

CCSM*FUAG3V(»1 
PS*=FlAGSY(<)) 

U»0 

00  12)  1*1,254 

SA  V6 ( 1 1  *SA  V£0(  I) 

GO  TO  STATE*  (96*105) 

•  £F 


IF  (FILLSH)  3*u  FLUSH 


IH£  SAtft  BUFFER 


ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 


1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1334 

1335 

1336 

1337 
1336 

1339 

1340 

1341 

1342 

1343 

1344 

1345 
134c 

1347 

1348 

1349 

1350 

1351 

1352 

1353 

1354 

1355 

1356 

1357 
1356 

1359 

1360 

1361 

1362 
13c3 

1364 

1365 

1366 
13c7 

1368 

1369 

1370 

1371 

1372 

1373 


52 
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4FWL-TR-7M3<> 


program  ROPF 

CONTINUE 
call  cJtCT 

IF  CFTNOTEJ  33  TO  lJi 

CAcfA^Slf  ^  °*U  0lS*U<20HNO  <>F  CONTROL  ERRORS  »BADCTR) 
ENO 


4FWL-TR-72-130 


I 


SU3RJUTINE  EJECT 

SUBROUTINE  EJiCT 

ROFF 

1401 

-% 

% 

5? 

_g 

■J 

subroutine,  eject 

ROFF 

1402 

INTEGER  ONe. 

ROFF 

1403 

s 

INTEGER  USCO<i .NUMBER (10) « 13 AT A2 (42) 

ROFF 

1404 

INTEGER  FTLINZ .FTOVER.FLIN.C,  FTREC.PAGENO.FTOVER, TSKIP 

ROFF 

1435 

INTEGER  B JFFu,  CC. ME AO, OLE NG. 3 UT , OVLI.NE .PAGEL.PCC.U 

ROFF 

1406 

LOuICAi  OtfdRSM.PSM 

ROFF 

14C7 

* 

IMPLICIT  INTiGER  (A-Z) 

ROFF 

1408 

4 

COMMON  /OPARM/  CC.PCC t INDENT , PAGENO.uI NECT .PA&dLtPMONSK.RNUMSM 

ROFF 

1409 

COMMON  /FEE T/  U.NREC.NFOOT ,FTREC.FTN3TE,NFOOTP,FTOVER»FTLINZ,CTFN 

ROFF 

1410 

£ 

J 

01 MENS ION  IPSO(t) 

ROFF 

1411 

4 

COMMON  /OUTBOC/  OUT  (l30),OVwlNE(i3i)),BUFFL,OVERSM,NMORD,OLENG,PSM, 

ROFF 

1412 

:S 

1LENMAX 

ROFF 

1413 

% 

COMMON  /FLIN</  FLIN(13l),HEA0(54) ,IP30 

R  OFF 

1414 

J 

COMMON  /SKIP!'  NSKIP 

ROFF 

1415 

% 

LOuICAt  CTFN 

ROFF 

141c 

i 

LOGICAL  FT NOT ; 

ROFF 

1417 

k 

LOGICAL  rnumsm 

ROFF 

1418 

logical  pmonsw 

R  OFF 

1419 

i 

INTEGER  ZERO*  BLANK* PLUS 

R  OFF 

1420 

INTEGER  TT.TOPSP 

ROFF 

1421 

M 

INTEGER  Z 

ROFF 

1422 

OATA  Zc.RO,  BLANK, PLUS/ 1H0,  1H  ,1H»/ 

ROFF 

1423 

DATA  uSCORc/I - 9/ 

ROFF 

1424 

OATA  IBlNK/o:,' 

ROFF 

1425 

jh 

OATA  NUMBER/2  ♦C,24l,2<.2,243,244,245,24o»247,248,249/ 

ROFF 

1426 

2 

OATA  0N£/iMl/,T0PS?/3/,TSKP/l/ 

ROFF 

1427 

3 

OATA  lETTR1/13  7/,L::TTRV/165*»  LETTRX/167/ 

ROFF 

1428 

i 

IF  (.N0T.FTN3I cl  GO  TO  11 

ROFF 

14  £9 

1 

■* 

ARE  WE  ALREAOT  AT  THE  BOTTOM  OF  THE  »AGE 

ROFF 

1430 

LL*PAGEl.-LINEST*’1 

ROFF 

1431 

IF  (LL.lE..)  *0  TO  2 

ROFF 

1432 

00  1  1=1. LL 

ROFF 

1433 

* 

CALL  MICRO  (B.ANK.i.J) 

ROFF 

1434 

| 

1 

CONTINUE 

ROFF 

1435 

S 

> 

CONTINUE 

ROFF 

1436 

00  3  i=l,FTRiS 

ROFF 

1437 

$ 

BACKSPACE  •» 

ROFF 

1438 

i= 

I0ATA2(1)*BlANK 

ROFF 

1439 

j 

00  *♦  1*2. *.2 

ROFF 

1440 

1 

»♦ 

I0ATA2 ( IJ *USCOR£ 

ROFF 

1441 

i 

CALL  MICRO  (1JATA2C1)  »  10*. TA2  ( 2 )  .  41) 

ROFF 

1442 

FTlINZ*FThNZ-2 

ROFF 

1443 

LR=LcNMAX+i 

ROFF 

1444 

IF  (FTOtfER.Li.O)  GO  TO  8 

ROFF 

1445 

i 

RcmO  (4)  (FLIN(I) «I*1«LR) 

ROFF 

1446 

-1 

% 

* 

HRITE  OUT  A  S  MUCM  OF  FOOTNOTES  AS  MILL  FIT 

ROFF 

1447 

C*FLIN(1) 

ROFF 

1448 

i 

0 

FTk£C*FTR£C-l 

ROFF 

1449 

t 

IF  CC.EJ.ZtROI  FTLlNZ*FTLlNZ-2 

ROFF 

1450 

-] 

IF  (C.E3. BLANK)  FTLINZ*FTLIHZ-1 

ROFF 

1451 

* 

HRITE(6,2t)C0)  (FHN(I)  .  1*1, LRI 

ROFF 

1452 

| 

CALL  MICRO  (F.IN(i) ,FLIN(2)»LR-1) 

ROFF 

1453 

| 

IF  (FTLINZ .Gf , 0)  50  TO  5 

ROFF 

1454 

* 

HADE  ME  PRINTEO  HE  LAST  LINE 

ROFF 

1455 

* 
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56 
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SUBROUTINE  EJcCT 

4 

a 

IF  (FTREC.tQ..)  uO  TO  10 

ROFF 

1456 

-a 

<N 

«• 

HOVE  TO  THE  END  OF  THE  04 T A  SET 

ROFF 

1452 

* 

oo  i  z*i,ftre: 

ROFF 

1456 

3 

READ  (A)  (FLI M I) 1 1*1  * LR) 

ROFF 

1459 

i 

V 

C*FLINU) 

ROFF 

I4c0 

% 

IF  (C.E0. PLUS. ANO.Z.EU.l)  03  TO  6 

ROFF 

1461 

1 

2 

CONTINUE 

ROFF 

1462 

} 

i 

WRITE  OUT  AL.  THE  FOOTNOTES  ANO  RESET  ALL  THE  POINTERS 

ROFF 

1463 

GO  TO  11 

ROFF 

1464 

M 

s 

00  9  Z*ltFTRi; 

ROFF 

1465 

'H 

REAO  $4)  (FLI N (I > , 1=1  f LR) 

ROFF 

1466 

31 

CALL  MICRO  (F.IN(l)  «FtIN(2).-R-l) 

ROFF 

1462 

5 

CONTINUE 

ROFF 

14c  6 

§j 

13 

REMINO  4 

ROFF 

1469 

FTLINZ-3 

ROFF 

1470 

-4 

FTNOTt=. FAlSE. 

ROFF 

1471 

4‘ 

A 

FTRtC=ii 

ROFF 

1472 

■h 

-# 

ARc.  HL  NUMBERING  CONTINUOUSLV 

ROFF 

1473 

i 

IF  (CTFN)  00  TO  11 

ROFF 

1424 

f. 

NFGOTPsJ 

ROFF 

1475 

ii 

NFOOT-G 

ROFF 

1476 

A 

11 

CONTINUE 

ROFF 

1477 

1 

IF  PM  OFF,  SKIP,  PRINT  T3PS»U  LINES 

ROFF 

1478 

! 

n 

•/ 

IF  PM  ON,  3KIa,  PRINT  PA3EN3,  TOPSP  »INES 

ROFF 

1479 

| 

00  25  J=1 , TSK1P 

ROFF 

1480 

V< 

CALL  MICRO  ONE,  J,L) 

ROFF 

1481 

if 

IF  (PM0NSW1  5J  TO  12 

ROFF 

1482 

3j 

TT=T0PSP*1 

ROFF 

1483 

■=S 

GO  TO  23 

ROFF 

1464 

•i 

12 

CONTINUE 

ROFF 

1485 

0, 

■> 

blank  out  output 

ROFF 

1466 

si 

00  13  1=1,6 

ROFF 

1487 

1 

13 

IPG0<II»I8LM< 

ROFF 

1488 

IF  CRNUMSM)  53  TO  15 

ROFF 

1489 

W 

00  10  L=1 , c 

ROFF 

1490 

-S 

£ 

N«MOO<PAt»ENQ/H**U-l)  ,13) ♦! 

ROFF 

1491 

j 

IP60<?-L)*NUNdER<N> 

ROFF 

1492 

IF  (PAGENO.LT.lfl**L)  GO  TO  22 

ROFF 

1493 

'J 

u 

CONTINUE 

ROFF 

1494 

* 

ROHAN  NUMER 

ROFF 

1495 

■ 

15 

IP6*MINJ ( PAGE  NO, 20) 

ROFF 

1496 

1 

N»M00t IPS , 5) 

ROFF 

1497 

J 

IF  (N«Ev),  3)  ij  TO  20 

ROFF 

1498 

1 

GO  TO  (16,12,16,19) ,  N 

ROFF 

1499 

i 

16 

IPG0(4)=LETTRI 

ROFF 

1500 

i 

12 

IPG0C5 ) »LETTRI 

ROFF 

1501 

13 

IPG0(6)*LETTRl 

ROFF 

1502 

i 

NEAT*c-N 

ROFF 

1533 

| 

GO  TO  21 

ROFF 

1504 

19 

IPGQC5)*LETTRI 

ROFF 

15C5 

1 

IPG0(6)*LETTRX 

ROFF 

1506 

U 

IF  (((IPc/5)/£)*2,£3, (IPc/5))  IPCO(E) «LETTRV 

ROFF 

1507 

1 

NEXT*4 

ROFF 

1508 

s 

GO  TO  21 

ROFF 

1509 

20 

IPG0(6)>LETTRtf 

ROFF 
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SUBROUTINE  EJE3T 

IF  (<(  IP&/$)/;)*2.EQ. (IP675M  IPGO(&» *LETTRX 
NtXT»5 

21  IF  (IP6.liT.l-;*  IPiU(NcXT) *L£TTRX 

22  CONTINUE 

CALL  MICRO  <3wANK«HEA0t63> 

TT*TOPSP 

3  IF  (CC.E4.2I  TT*TT-1 

00  24  1*1, TT 

24  CALL  MICRO  B-ANK,C,0> 

PACENO*®AG£NO*’l 

25  CONTINUE 
T  SKIP* l 
L1n£C1*1 

IF  (.NOT.FTNOTE)  RETURN 
3  ScTUP  THE  OVERFLOW  OF  THE  FOOTNOTE 

3  010  ME  RUN  PAST  THE  LAST  PAGE  BOTTOM  BY  ONE  LINE 

FTOVER*FTUVtUFTLINZ 
LiNECT  *M00($*~T0tf£R,PA5EL) 

FTOVER*NAXB (0 , FTOVER-LlNECTf 3) 

FTlINZ*LINECT-1 

RETURN 

3  ENTRY  SKIP(NSKIP) 

ENTRY  SKIP 

TSKIP*TSKIP*NSKIP 

RETURN 

ENO 
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iUBRjUTI  Ns  FLUSH 
SUBROUTINE  FtJSH 

INTEGER  BB*3_ ANK*  8UFFL ,C3  *3UT*QVL1NE, PA  G£L*PCC  *PERC£N,PLUS*U 
INTEGER  CTFN»FTLINZ,FTOVER*FTREC»OLENG,PAGENO 
LOGICAL  RNUM3W 
IMPLICIT  INTEGER  <A-Z> 

COMMON  /OPARM/  CC* PCC , INQENT* PAGENO»llNECT  »PAGEL* PMONSW,RNUMSW 
COMMON  /FEtT/  U*  NREC* NFOOT  *r TR£C*FTN3T£*  NFOOTP*FTOVER«FTLlNZ«CTFN 
LOGICAL  FT  NOT i 
LOGICAL  PMON5W 

COMMON  /OJTOJF/  OUT (i30>»OVuINE(13Q>,BUFFL,OVERSW,NHORD»OLENG»PSH« 
1LENMAX 

WRITE  OUTPUT  3UFF£R 
LOGICAL  OVER3M 
LOGICAL  PSW 
DATA  PLJS/1H*/ 

OATA  PERSEN/1 2  8/ 

OATA  ULANK/64' 

IF  (SUFFL.ta. INDENT. ANO.NMORO.EQ.O)  RETURN 
IF  (LINECT.Gl.PAGEL.AND.CC.GT.G.AND.J.fcQ.&l  CALL  EJECT 
CALL  TRANS  (OJTfdUFFL) 

IF  (U.Ea«c.O<.BUFFL.GE.LENHtX>  GO  TO  2 

BB*BUFFL*1 

00  1  JJ^OBtLiNMAX 

OUT (  JJI *BL AN< 

BUFFLSLENMAX 

CONTINUE 

IF  (U.NE.6)  WRITE  (U)  PCOt OUT <11 ,1*1 , BUFFLI 
IF  (U.E0.6)  CALL  MICRO  (PCC,OUT,BUFFL) 

NREC*NREC*1 

IF  (.NOT.OtfERSH)  GO  TO  4 
OVtRSW*. FALSE. 

IF  (U.NE.6J  WRITE  (Ui  PLUS,  (OVLlNEUI  ,  1*1, BUFFL) 

IF  (U.Ed.c)  CALL  MICRO  (PLUS, 01/LINE, BUFFL) 

NREC=NREC*1 
00  3  1*1, auF*. 

Ol/LINtU) = BLANK 
CONTINUE 
BUFFL=INDENT 
LINECT  *LINECT  *GC 
NWORO*0 

IF  (INOENT.LE.GI  RETURN 

00  5  1*1* INDENT 

OUT (I) sPERCEN 

RETURN 

END 
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SUBROUTINE  MRBLNK 


SUBROUTINE  MRtfLNK  (N> 

ROFF 

1584 

INTEGER  OUT »3rfLINt»PAGEL, U, WHERE 

ROFF 

1585 

INTEGER  BUFF.,GC,CTFN,FTHNZ,FTOVER»FTREC,OL£NG,PAGENO»PCC 

ROFF 

1586 

LOGICAL  OVtRSM,RNUMSW 

ROFF 

1587 

«• 

IMPLICIT  INTEGER  (A-Z) 

ROFF 

1588 

COMMON  /OP ARM/  CC«PCC, INDENT, PAG£NQ«.XNECT«PAGEL,PMONSM,RNUMSN 

ROFF 

1589 

COMMON  /FEET/  U»NREC, NF00T,rTREC»FTN3TE* NFOOTP»FTOVER»FTLINZ*CTFN 

ROFF 

1590 

COMMON  /0UT8J;/  OUT (ISO ) . OVLINE (130 ) t BUFFl, OVERSW.NMORO, OLENGtPSM, 

ROFF 

1591 

1LENMAX 

ROFF 

1592 

INTEGER  BlAN< 

ROFF 

1593 

LOGICAL  PSM 

ROFF 

1594 

LOGICAL  FfNOT. 

ROFF 

1595 

LOGICAL  PNONSrt 

ROFF 

1596 

DATA  6LANK/H  / 

ROFF 

1597 

J) 

OPERATES  IN  V.EO  MJOE  —  IF  4SK  FOR  N  SPACES,  MILL  SKIP 

ROFF 

1598 

•s 

TO  NEW  PAGE  TO  GET  THEN  IF  NECESSARY 

ROFF 

1599 

* 

SAVE  PTR 

ROFF 

ieoo 

WHERE=LINEcT*m-1 

ROFF 

1601 

OOtS  IT  Fic  ON  CURRENT  PAGE 

ROFF 

1602 

IF  (WHERE. L£.aAG£L. OR. U.NE.i)  GO  TO  1 

ROFF 

1603 

NO,  SKIP  TO  N;W  PAGE 

ROFF 

1604 

CALL  EJECT 

ROFF 

1605 

MERE  THERE  Ri ALLY  ENOUGH  SPA2ES 

ROFF 

1606 

IF  (MHERE.lE. 9Ai>EL+5  •  AND. .NOT.FTNOTE)  RETURN 

ROFF 

1607 

* 

•J 

NC,  SO  MAKE  T HEM 

ROFF 

1608 

l 

CONTINUE 

ROFF 

1609 

LINLCT  3LINECI *N 

ROFF 

1610 

00  2  1=1, N 

ROFF 

1611 

IF  (U.EJ.6)  0 ALL  MICRO  (3LAN<«0,0) 

ROFF 

1612 

IF  (U.NE.6J  NRIT i  (U)  BLANK 

ROFF 

1613 

NRtC=NREC*l 

ROFF 

1614 

J 

CONTINUE 

ROFF 
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RETURN 

ROFF 
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ENu 
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SUBROUTINE  AOJJST 


SUBROUTINE  ADJUST 

INTEGER  dLAN<*BUFFL#HOLES,Ot.ENGfOUT*OVLINE*PSW*RSPACE*SUMSIZ 
IMPLICIT  INTEGER  (A-Z) 

COMMON  /OUTBJr/  OUT(  133 >.OVLlNE(13tJ>,BOFFL,OVERSW, NWORO*  OtSNGiPSW, 
1LENNAX 

lQuICAl  OVERSN 
DATA  3LANK/64/ 

IF  ONE  WORU  *  LEAVE 
IF  (NHORO.LE. 1)  RETURN 

WHEN  ENTER*  6JFFL  POINTS  TO  LAST  BLANK  IN  BUFFER. 

WHtN  LEAVE*  WILL  EOUAL  OlENS  •  AND  POINTS  TO  LAST  ACTIVE  CHARACTER 

NWORO  s  NUMBtR  OF  ACTUAl  WORDS  IN  LINE 

SUHSIZ  >  TOTAL  SIZE  OF  ACTIVE  WORDS 

SUMSIZ-BUFFL-NWORO 

J  IS  LAST  ACTIVE  CHAR  IN  8U;F 

J-6UFFL-1 

HOLES- NWORO-l 

RSPACE  IS  NUWftER  OF  SPACES  TO  BE  INSERTED  IN  TOTAL 
RSPACE=OL£NG>( SUNSIZ+HOLES) 

IF  (RSPACE. LE.O)  GO  TO  5 

BLANK  OUT  8UF-ER 

00  1  1-3UFFL*  OLENS 

OVLINt (I) -BLANK 

0UTCII»3LANK 

K  IS  POINTER  IN  TARGET 

K-OLENG 

HOVE  THE  CHAR 3 

IF  (OUT(J) .ED. BLANK)  GO  TO  <* 

OUT  (K)  -OUT  ( J) 

OUT (J) -blank 
IF  (.NOT.OVERSW)  GO  TO  3 
OVulNE (K) *0VLI NE (J) 

OVLINt (J) -BLANK 

CONTINUE 

K-K-i 

J=J-1 

GO  TO  2 

WORO  IS  NOVEO.  RESET  POINTERS  TO  INSERT  BLANKS 

IF  SPACES  GO  EVENLV  AHONG  HOLES*  NO  PR03.  OTHERWISE*  AOO  EXTRAS 

NBL  IS  NUHOER  OF  EXTRA  BLANKS 

NBL -RSPACE/ HO. ES 

IF  (RSPACE. NE.NBL*HOLES)  N8.«N0L*IRV( 1) 

REMAINING  SPACES 

RSPACE -RSPACE -NBL 

IF  (RSPACE. LE.G)  GO  TO  5 

HOLES-MQLES-1 

K-K-NBL-i 

J-J-l 

GO  TO  Z 

NWORO- 0 
BUFFL-OLENG 
RETURN 
ENO 
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SUBROUTINE  NUMBER 

SUBROUTINE  NUMBER  (LEFT,N,RIGHT, INt I,  J ,0 OPYSW)  ROFF  1672 
SUBROUTINE  TO  INSERT  THE  NUMBER  IN  LITERALS  SPECIFIED  BY  N  ROFF  1673 
SURROUNOt 0  BY  THE  CHARACTERS  SPECIFIED  BY  LEFT  AND  RIGHT  ROFF  1674 
STARTING  AT  ’DSITION  J  AMO  MOVING  THE  INPUT  LINE  TC  THE  RIGHT  ROFF  1675 
TO  ELIMINATE  OVERWRITING.  ROFF  1676 
IMPLICIT  INTEGER  (A -Z)  ROFF  1677 
INTEGER  ULINE  ROFF  1676 
INTEGER  PRU, RIGHT,  POW13  ROFF  1679 
COMMON  /INB'JFf  INN<99)  ,ULINE(99>  «PRU,INL£NG,INL1  ROFF  1660 
COMMON  /SPP/  iP  ROFF  1661 
DIMENSION  IN(l3fl)  ROFF  1662 
FINE  OUT  HOW  MANY  DIGITS  TO  WRITE  ROFF  1663 
LOGICAL  COPYSWtSP  ROFF  1664 
POWlO-O  ROFF  1685 
PO-.iO*POWli)+l  ROFF  1686 
IF  (N.O£.10**POK10)  GO  TO  1  ROFF  1667 
00  WE  HAVE  TO  MOVE  THE  INPU*  CARO  OVER  ROFF  168j 
IMOVE=POWUU-UJ  ROFF  1689 
IF  (SPI  IM0V£=IM0V£<1  ROFF  1690 
IF  (COPYSWtOR.  IMOVE.LE.  0)  GO  TO  <♦  ROFF  1691 
IF  (I.EO.INLl-1)  iO  TO  3  ROFF  1692 
HOW  MANY  COLJMNS  00  WE  MOVE  ROFF  1693 
NMOVEslNLl-I-l  ROFF  1694 
00  2  K-l, NMOVi  ROFF  1695 
IN{INlI*IHUVE-M=IN<INL1-K)  R  OFF  1696 
INLl=INLl+lN3vE  ROFF  1697 
PUT  IN  THE  NUMBERS  ROFF  1698 
12-0  ROFF  1699 
00  5  Ksi.POWl,  ROFF  1700 
I1=N/1 0** (POWlG-KI  ROFF  1701 
INtJ*K)=2<,mi-i;J*I2  ROFF  1702 
12=11  ROFF  1703 
PUT  IN  THE  BRACKETS  ETC.  ROFF  1704 
INU)=LEFT  ROFF  1705 
INC J+POWlO+1) =RIGHT  ROFF  1706 
UPUATc  THE  POINTERS  ROFF  1707 
IF  (SP)  lN(U+POW10+2) *1  ROFF  1708 
I*I«-l*HAXi)(IM0VS,0»  ROFF  1709 
J=U*POW10  ■*"£  ROFF  1710 
IF  <SP>  J=JU  ROFF  1711 
SP=. FALSE.  ROFF  1712 
RETURN  ROFF  1713 
END  ROFF  1714 
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function  inug 


INTEGER  FUNCT 2 0NXN1 £G(IN* START , OEFLTI 

ROFF 

1715 

1 

PICK  UP  AM  IMIEGER  IN  IH(S»W  ...  IN£82J. 

IF  BLANK.  RETURN  OFL  ROFF 

1716 

1 

sJ 

IMPLICIT  INTi-CERCA-Et 

ROFF 

1717 

“s 

INTEGER  3LANK* START, OEFLT 

ROFF 

171ft 

'1 

DIMENSION  IN(tt2) 

ROFF 

1719 

DATA  3LANK/6U 

ROFF 

1720 

i 

00  1  I*ST  ART 

ROFF 

1721 

i 

IF  (IN(I) .NE.iLANK)  GO  TO  2 

ROFF 

1722 

it 

i 

CONTINUE 

ROFF 

1723 

i 

■0 

FALL  OUT*  BLANK.  GIVE  OEf AU.T  VALUE 

ROFF 

1726 

INTEG-OEFLT 

ROFF 

1725 

% 

RETURN 

ROFF 

1726 

j| 

* 

ROFF 

1727 

a 

•  « 

NORMAL  PATH 

ROFF 

172ft 

n 

> 

I  NT  EG- IN  ( I)-2<.C 

ROFF 

1729 

ii 

3 

I*IU 

ROFF 

1730 

% 

JTEMP»IN< li 

ROFF 

1731 

1 

IF  1 3T £HP « EO. BLANK5  RETURN 

ROFF 

1732 

a 

INfEG=liJ*lNTE5*tJT£HP-26J> 

ROFF 

1733 

GO  TO  3 

ROFF 

1736 

I 

ENG 

ROFF 

1735 

1 

MS  ■KflJi'niwit.1^  JSvSk^iiliiA^  S-i<^i6,Jl!lS» 


SUBROUTINE  TRANS 

1 

SUBROUTINE  TRANS  (BUF.LEN) 

ROFF 

1736 

4 

IMPLICIT  INTEGER  (A -Z> 

ROFF 

\T*7 

% 

z 

ROFF 

1733 

% 

w 

TRANSLATE  THE  CHARACTERS  IN  THE  OUTPUT  BUFFER 

TO  FINAL  PRINT 

FORM 

ROFF 

1739 

3 

ACCOROING  TO  1 RT AB 

ROFF 

1740 

‘-'S 

ROFF 

1741 

'A 

DIMENSION  IN(31> 

ROFF 

1742 

-a 

INTEGER  TRTAB« BLANK, PERCENtSl .C2 .START 

ROFF 

1743 

INTEGER  BUFU36) 

ROFF' 

1744 

COMMON  /SR2/  TRTAS1256) 

ROFF 

1745 

3. 

SATA  BLANK, INBLNK.PERCEN/64,  1,108/ 

ROFF 

1746 

I 

•N 

•S 

ROFF 

1747 

A 

00  1  1=1, LiN 

ROFF 

1743 

*« 

I8UF*BUF(I) 

ROFF 

174* 

£ 

BUF(I) =TRTA3( IBUFi 

ROFF 

1750 

1 

CONTINUE 

ROFF 

1751 

j 

RtTURN 

ROFF 

1752 

% 

■s 

> 

R  OFF 

1753 

J. 

5 

* 

ROFF 

1754 

ENTRY  TR 

ROFF 

1755 

| 

■> 

V 

ROFF 

1756 

ROFF 

1757 

r> 

•s 

ENTRY  TK( IN, START; 

ROFF 

1753 

u 

ROFF 

1759 

DO  2  1=1,81 

ROFF 

1760 

2 

IN(I|=8UF(I» 

ROFF 

1761 

- 

START=LEN 

ROFF 

1762 

-» 

EXTRACT  Ci  ANJ  C2  FROM  THE  INPUT  CONTROL  CARO 

AND  PLACE  INTO 

TA3L 

ROFF 

1763 

z 

DO  3  l=SrMRT,»0 

ROFF 

1764 

IF  tlN(I) .NE, BLANK)  GO  TO  A 

ROFF 

1765 

i 

CONTINUE 

ROFF 

1766 

. 

•4 

IF  NO  CHARACTERS  ON  CARO,  RETURN 

ROFF 

1767 

' 

RETURN 

ROFF 

1763 

•s 

■J 

HE  NOH  HAVE  Cl 

ROFF 

1769 

4 

C1=IN( I) 

ROFF 

17?0 

i 

1=1*1 

ROFF 

,  r?1 

UO  5  J=i, 81 

ROFF 

,  7  ■» 

f 

IF  (IN  ( J)  «  Nfc,  jLAK'O  GO  TO  6 

ROFF 

:  -  '3 

5 

CONTINUE 

ROFF 

1;  74 

- 

** 

•# 

ROFF 

1775 

J 

C2  HILL  BE  BLANK  IF  NOT  SPECIFIED 

ROFF 

1776 

C2*BLAN< 

ROFF 

1777 

GO  TO  7 

ROFF 

1773 

0 

C2=IN( 0) 

ROFF 

1779 

: 

7 

TRTAB(Cl) =C2 

ROFF 

1780 

RETURN 

ROFF 

1781 

•4 

ROFF 

1782 

ENTRY  INITTR 

ROFF 

1783 

«# 

initialize,  tnl  table 

ROFF 

1784 

■4 

ROFF 

1785 

DO  8  1*1,255 

Ror‘ 

1786 

TRTAB1 I)=I 

ROFF 

1787 

3 

CONTINUE 

ROFF 

1788 

TRTAB(PERCtN) s BLANK 

ROFF 

1789 

I 

TRTABt IHBlNK) =BLANK 

ROFF 

1790 

i 

i 

i 
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SUBROUTINE  SEARCH 

SsubrSIJ?S-S^»cm  <1N»S^RT1,INIJI 
?HO,R?rHMr  a*-ARCM  (IN.STARTl,*) 

OOM«ONR/SK3/Ji?"B;255""'l’CO<’l:0li£cr’5‘>R1'<!0«,EliOtSJaiML,SMIit 

co2^I/«0yORiCT‘22*23>*  i*<i> 

^R/.-3U)NNtlNL2 
DATA  QLAHK/c-i/ 

INI J-u 

IF  (COLUMN. G£. 20)  1NIJ=2 
ff ,1i^<‘Urtw‘<;I*20l  RETURN 

&«isT«U  i#'R£,UR'U 

DO  1  X=sr ART, sc 

ctoJ!™‘,,"£-3u*'  50  'J  * 

HO  strings  were  located 
return 

SIGNAL=IN(I) 

START*!*! 

IF  (START. G£.  80  RETURN 

|I-«rfAnIZE  W:<0  L£nCT>(S 
LcNGl*0 

LENG2=0 

ENi)*ST  ART  *10 

00  3  I*START, ENO 

IF  (IN(I) .EQ.SIGNAL)  00  TO  4 

L£NG1*LENG1+1  10  * 

INI J=2  a£N6U 2  »C0LUMN*1)=IN<I) 

RETURN 

RETURN! 

s?;“=r;;jcoL'',"*i,sL£'‘51 

sNO=ST  ART  t-9 

00  5  I*START»:NO 
LEWG2*LENG2*1 

rLi^T.a>  ‘EQ.SIGNAU  GO  TO  o 
CORECT  (LcNG2* I 2* COLUMNED  =INCI) 

return 

RETURN! 

CORECT (2, COLUMN*!) *LENG2 

C0LUMN*C0LUMV*1 

RETURN 

*»««** ************»♦*«« 

ENTPY  SPELL 


INL1=STAKT 1 
ENTRY  SPELL  (XN.lNLU 
IF  (COLUMN. t^.O)  RETURN 


ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 


1/93 

1794 

1795 

1796 

1797 
1796 
1799 
1600 
16C1 
1802 
1603 
1804 

1605 

1606 
1607 
1606 

1609 

1610 
1611 
1612 

1613 

1614 

1615 

1616 
1617  ' 
1616 

1619 

1620 
1621 
1822 

1623 

1624 

1625 
162c 
1827 
1826 

1629 

1630 

1631 
1832 

1633 

1634 
1835 
1636 
1837 
1636 

1639 

1640 

1841 

1842 
1643 
1844 
16*5 
16*6 
1047 
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SUBROUTINE  SEARCH 
INL2«INH 

LOOP  FOR  EACH  MORO  TO  BE  CHECKEO 
00  15  1*1, CO-UMN 
£NU*INL2*1-C3<ECTU,I) 

J*0 

LOOK  FOR  FIRST  LETTER 
J*J*1 

IF  (J.GT.EHU)  GO  TO  15 
IF  (lN(J).NE.SOR£OrU»m  GO  TO  7 
CHECK  FJR  REST  OF  MORO 

cor*cor£ctu»d*j-i 

00  8  K* JtCOR 

IF  (IN(K) . N£. CORECT (K*3“J»I)  )  GO  TO  7 
CONTINUE 

WHICH  MAY  00  ME  HOVE  THE  REST  OF  THE  CARO 
ADO*COR£CT (2, I ) -CORECT (1, It 
IF  (AOO.EQ.d)  GO  TO  13 
HOVE  LEFT 
C0R1*C0R+1 

IF  (AOO.GT.O)  GO  TO  10 
1)0  9  K*C0Rl«lNL2 
KAOU*K+ADO 
IN(KAOO)  *  INTO 
tU  IN(K+A03I  *IN(K) 

GO  TO  12 

-  HOVE  right 

10  CONTINUE 

00  11  K*C0R1« 1NL2 
KK*INL2*C0Rl-< 

11  IN(KKAUJ) *1N(KK) 

KKAOO*KK+AJO 

C  lie  IN(KK*-AO  J)*IN(KKI 

12  CONTINUE 
INL2*INL2+A03 
£NO*ENQ*AOU 

Z  PUT  IN  CHANGE  MORO 

IF  (CORECT (2,1). £3.0)  GO  TO  15 

13  C0R2*C0K*AJ0 
OG  14  K* J » COi£ 

14  IN(K)*COREGT(U*K-JfI) 

15  CONTINUE 
RtTURN 
ENU 
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ROFF 

1840  ” 

1 

ROFF 

1849 

3 

ROFF 

1850 

ROFF 

1851 

1 

ROFF 

1852 

% 

ROFF 

1853 

h 

ROFF 

1854 

1 

ROFF 

1855 

ROFF 

1856 

‘3 

ROFF 

1857 

1 

ROFF 

1858 

? 

ROFF 

1859 

>  a 

,  34 

<  -■? 

ROFF 

1860 

ROFF 

1861 

1 

ROFF 

1862 

ROFF 

1863 

| 

ROFF 

1866 

j 

ROFF 

1865 

1 

ROFF 

1866 

i 

ROFF 

1867 

| 

ROFF 

1868 

ROFF 

1869 

ROFF 

1870 

i 

ROFF 

1871 

1 

ROFF 

1872 

- 

ROFF 

1873 

ROFF 

1874 

\ 

ROFF 

1875 

ROFF 

1876 

ROFF 

1877 

- 

ROFF 

1878 

R  OFF 

1879 

ROFF 

1880 

ROFF 

1881 

ROFF 

1882 

ROFF 

1883 

ROFF 

1884 

ROFF 

1885 

ROFF 

1886 

ROFF 

1887 

ROFF 

1888 

ROFF 

1889 

ROFF 

1890 

■ 
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SUBROUTINE  Flu. 

SUBROUTINE  FIU. 
implicit  int egeria-Z) 

iJ!s5“S.s»«:SSt'sl'c;'*l>‘£"li*ou,*:"u»s-',«E^' 

INTEGER  COLUMN 

COMMON  /IMBU^/  INI 99)  »ULINE(39) .PRU.IMl Fur  Tui  * 

J2B/5S  ^“:*-5fJSJSK!BSayw 

3  'outbj-/  ouriij.i.ovaHeuMi.aoFFL.ovERsii, 

COMMON  /SWITCH/  AOSN,FlL.SN 
LOGICAL  PRU»3VERSW»A0SW 
LOGICAL  FlutSW tSPELSW 
COMMON  /SR-*/  iPgL.SH 
COMMON  /SR/  COLUMN* INL2 
OATA  6LANK/6*/ 

IML2*INL1 

IF  C.NOr.SPt.SM)  GO  TO  1 
CALL  SPELL  UNflMLi) 

F*NI'  fl*Sf  non-blank  in  the  line 

CO  2  1*1* INL2 

IF  (IN < I) . NE. BLANK)  GO  TO  3 
CONTINUE 

returnR£  IF  ihput  ls  A  BLAN<  LINE 

STARTs  I  °N”8U'*K*  F°*  BUN* 

00  4  I=START,INL2 

H  •eC.SLANK)  GO  TO  5 

CONTINUE 

GET  HERE  FOR  3LM 
L MORONI -START 
TOO  BIG  FOR  3 jFf  c* 

8UFFL  IS  LAST  BLANK  IN  OUTPUT  BUFFER 

IF  CLWORO*BUr=L.GT.OLENG>  GO  TO  12 

NO,  SO  PUT  WORO  INTO  BUFFER 

NHORQsNWOROH 

SB»STA«T-8UF-.-l 

Bl*8UFFL*i 

3UFFL=8UFFL*-N0R0n 

00  9  J*dl,BU"L 
OUTTJJ »lN(Sa*J) 

CONTINUE 

wcSoRaS  WIT ,F  “SEM0 

“ao!“riJfc:  s“  r°  F»*  «ww 

00  9  J*dl,8UFFL 
0  VL  INS  (  J)  «ULI  NE  ( S8*  J) 

START=f  NEKf  N0N'3UM<’  CAREFUL  ABOUT  FALLING  OFF 

00  U  I*STA«T,INLt 

IF  (IN (I) .NE, CLANK)  GO  TO  3 

CONTINUE 


PHONSNtRNUNSM 


ROFF 

1991  ~ 

ROFF 

1892 

IN  ROFF 

1893 

ROFF 

1894 

ROFF 

1895 

ROFF 

1896 

ROFF 

1897 

ROFF 

1898 

»  ROFF  ‘ 

1899 

ROFF 

1900 

ROFF 

1901 

ROFF 

1902 

ROFF 

1933 

ROFF 

1904 

ROFF 

1905 

ROFF 

1906 

ROFF 

1907 

ROFF 

1908 

ROFF 

1909 

ROFF 

1910 

ROFF 

1911 

ROFF 

1912 

ROFF 

1913 

ROFF 

1914 

ROFF 

1915 

ROFF 

1916 

ROFF 

1917 

ROFF 

1918 

ROFF 

1919 

ROFF 

1920 

ROFF 

1921 

ROFF 

1922 

ROFF 

1923 

ROFF 

1924 

ROFF 

1925 

ROFF 

1926 

ROFF 

1927 

ROFF 

1928 

ROFF 

1929 

ROFF 

1930 

ROFF 

1931 

ROFF 

1932 

ROFF 

1933 

ROFF 

1934 

ROFF 

1935 

ROFF 

1936 

ROFF 

1937 

ROFF 

1938 

ROFF 

1939 

ROFF 

19h0 

ROFF 

1941 

ROFF 

1942 

ROFF 

1943 

ROFF 

1944 

ROFF 

1945 

-i  t  w4  .i/A jC*3wt  ilVir&'J?  UtiML5?.r5Hi 
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subroutine  fill 


£Ni)  OF  lINc.  RiAQING  BLANKS,  IF  GET  HERE.  QUIT 

IF  (PRu)  GO  TO  i*t 

RETURN 


12 


L  3 


* 

14 

13 


■* 

1G 


CONE  HERE  TO  CHECK  FOR  RJUST. 

CONTINUE 

IF  <lNa-i).*a.i.AN0.LH0R0-l»8UFFL.Ei.0LENG>  60  TO  16 

IF  (OUT (8UFF..-1) ,NE,1)  GO  TO  13 

KNOCK  OUT  EXTRA  SPACE  AFTER  PERIOD  l:  AT  LINE  ENO 

6UFFL*8UFFl-1 

OUT (BUFFLt =8-ANK 

IF  (AOStf)  UAL.  ADJUST 

FLUSH  THE  OUTPUT  BUFFER 

CALL  FLUSH 

ANO  TKY  THE  -AST  MORO  AGAIN 

IF(lN0R0*BUF*..L£.0lEN5)  GO  TO  7 

WORD  IS  TOO  BIG  FOR  LINE  —  3REAK  IT  UP 

LH0R0*0LEN6-8JFFL 

I*START*OLtNS 

GO  TO  c 

BLANK  OUT  UNDERLINE 
PRU*.FAlSE. 

00  15  I*1,INu;N5 
ULlN£( l!*NLANK 
RETURN 

l55«S2i.5o2oSi*icmi  ro  LI,|E  ' KIU  ex,l<‘  SP*CE 

IN(I-l) *BLAN< 

GO  TO  7 
ENO 


ROFF 

1946 

ROFF 

1947 

ROFF 

1946 

ROFF 

1949 

R  OFF 

1950 

ROFF 

1951 

ROFF 

1952 

ROFF 

1953 

ROFF 

1954 

ROFF 

1955 

ROFF 

1956 

ROFF 

1957 

R  OFF 

1956 

ROFF 

1959 

ROFF 

1960 

ROFF 

1961 

ROFF 

1962 

ROFF 

1963 

ROFF 

1964 

ROFF 

1965 

ROFF 

1966 

ROFF 

1967 

ROFF 

1966 

ROFF 

1969 

ROFF 

1970 

ROFF 

1971 

ROFF 

1972 

ROFF 

1973 

ROFF 

1974 

ROFF 

1975 
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SUBROUTINE  CRRECT 

SUBROUTINE  CRRECT 
IMPLICIT  iNTtGER  (A-Z) 

COMMON  /INBUF/  INI99)  .ULINEC99)  ,PRU*INLeNG»INLl 

INTEGER  BLANK, CHAR«ULINE 

LOGICAL  PRu 

OATA  LNOT, BLANK/95, cH/ 

JJ»i 

00  2  1*1*30 
CHARslNU) 

IP  (CHAR.tU.tNOT)  GO  TO  1 
INUJ)  *CHAR 
JJsJJ+i 
GO  TO  2 

IP  (UJ.£4*1)  jO  TO  Z 

JJ*JJ-i 

CONTINUE 

00  3  l-JJ, 30 

iNt I) = blank 

RETURN 

ctiJ 


ROPP 

1976  ! 

ROFP 

1977  I 

ROPP 

19TB  1 

ROPP 

1979  % 

ROPP 

1990  4 

ROFP 

19S1  | 

ROPP 

1982  I 

ROPP 

1983  | 

ROPP 

1984  | 

ROFP 

1985  i 

ROPP 

1986  * 

ROPP 

1987 

ROPP 

1986  | 

ROPF 

1989  I 

ROPP 

1998  | 

ROFP 

1991  :1 

ROPF 

1992  g 

ROPF 

1993  ’I 

ROPF 

1994  1 

ROPF 

1,95  I 
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FUN./I ION 


INTEGER  FUNCTIONIRV ( DUMMY) 

INTEGER  OUMNf 
X*RANFIJ> 

X  IS  UNIFORM  jN  Oti  SO  I*V  IS  EITHER  0  OR  1 

IRV*X+u*i 

RETURN 

ENO 
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SUBOJTINE  EQKOFF 


SUBROUTINE  EiiOFF 
IMPLICIT  INT:G£R  CA-Z) 

INTEGER  BO  TH, JPL ACE*  DIFF,  EX*  EXC  *FINAl.  *  FQ  *  OB* Qtf LINE* PLACE  * PL5 *  RP»RP 
1LACE* T OP«ULlN-«UUT 

integer  8uff.,zhove 

LOGICAL  PSM 

COMMON  /IMBUfV  I  NIB  9)  *ULINE(39)  *PRU,INLENG*INH 
COMMON  /cOBUr/  FINAL (EDO* 4) «LMINtLMAX,£OSH 

COMMON  /0UT8JF/  (JUT  (150)*  OVi_INE  (130 )  *  BUFFL  *  OVERS  W.NKORD.LL.  PS  W,  LEN 
IN  AX 

LOGICAL  OVcRSH.PRU 
LOGICAL  AOSM.FILLSH 
COMMON  /SWITCH/  AOSW.FILlSW 
LOGICAL  EUSH 
DIMENSION  LE9GTHC4) 

INTEGER  POS»Ol IN,0?5 .FRAS • Q2*  Q4  «Z*PP* 0 END* P5 ,Y , UP 
INTEGER  FRaCDC2,5Q,2) ,OUTC10,500) 

LOGICAL  CRASH*  SUPSH«SUBS4*  RJSH*CESM,OIOC  EN, OVLSM* ATSM.OVCK 
INTEGER  AMPER*  AT SIGN* BLANK *C£NT*CFLEX* COLON* OASH* COLLAR* EXCLAN* GRA 
1 VEtPERIOO, UM* a UO TE 2 *SH A R* » L90T »MP1211«  062*  P£RC£N*USCORE 
OATA  MC/O/.FRAC/O/, BOTH/3/, LINE/3/ 

DATA  FRAC0/2(i  u*0/»OUT/50Q 0*3/ 

OATA  CRASH/. -ALSE./ 

OATA  SUPSW/. FALSE. /.SUOSM/. FALSE. /,RJSW/. FALSE. /,CESW/. FALSE./, OIO 
1CEN/. FALSE./, OVLSH/. FALSE. /,ATSM/. FALSE. /,OVCK/. FALSE./ 

OATA  AMPER/8L/,ATSIGN/124/,3lANK/64/,  CENT/74/# CFLEX/ 190/, COLON/122 
1/  *0ASH/96/*QJi.LAR/91/*  Ex3LAi/90/*GRAV£/121/*LNOT/95/«HP1211/106/*0 
28  2/22**/*  PcKCE  9/108/  *P£RIDD/75/  *UN/lli/ * QUO TE2/ 127/* SHARP/ 123/ , USCO 
3RE/109/ 

IF  CF1LLSW)  CALL  FLUSH 
CALL  WRBLNK  (c) 

£QSW=. TRUE. 

00  3  J  =1*2 iid 
DO  3  1=1*4 
FINAL! J, I) =8- A  NK 
00  4  K*l, 10 
00  4  1*5*500,5 
OUT (K*I)=8LAN< 

00  5  1=1, 8J 
IN(II=BLANK 

CALL  PRE  ( IN*  L , INLENG, IEO) 

CALL  CRRECT 

IF  UNCI) .2a.»tRIU0>  GO  TO  43 


00  48  11=1,81 
INIIII=INClI> 

IF  (INIIII.ea. BLANK)  GO  TO  49 
IF  CATSM)  GO  TO  7 
IF  CINlIII.Ea.aH)  SO  TO  12 
IF  (INIIII.Ea*QU0TC2)  GO  TO  13 
IF  (INI II I .Ea. AMPER)  GO  TO  25 
IF  (INIIII.Ea.NP1211)  GO  TO  **h 
IF  CINIIII.Ea. SHARP)  GO  TO  13 
IF  CINIIII.Ea. GRAVE)  GO  TO  38 


ROFF 

2003 

ROFF 
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ROFF 

2005 

ROFF 

2006 

ROFF 

2007 

ROFF 

2008 

ROFF 

2009 

ROFF 

2010 

ROFF 

2011 

ROFF 

2012 

ROFF 

2013 

ROFF 

2014 

ROFF 

2015 

ROFF 

2016 

ROFF 

2017 

ROFF 

2016 

ROFF 

2019 

ROFF 

2020 

ROFF 
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ROFF 
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ROFF 
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ROFF 
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ROFF 

2025 

ROFF 

2026 

ROFF 

2027 

ROFF 

2028 

ROFF 

2029 

ROFF 

2030 

ROFF 

2031 

ROFF 

2032 

ROFF 

2033 

ROFF 

2034 

ROFF 

2035 

ROFF 

2036 

ROFF 

2037 

ROFF 

2036 

ROFF 

2039 

ROFF 

2040 

ROFF 

2041 

ROFF 

2042 

ROFF 

2043 

ROFF 

2044 

ROFF 

2045 

ROFF 

2046 

ROFF 

2047 

ROFF 

2046 

ROFF 

2049 

ROFF 

2050 

ROFF 

2051 

ROFF 

2052 

ROFF 

2053 

ROFF 

2054 

ROFF 

2055 

ROFF 

2056 

R  OFF 

2057 
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SUBROUTINE  EQROFF 

IF  UNIIII.cU.0S2)  GO  TO  14 
IF  (INIII1.Eu.CcNT)  GO  TO  9 
IF  (INIIII .EU. USCORE)  GO  TO  10 
IF  (INIIII .£4. ATSIGN)  GO  TO  11 
IF  (INIIII.E4.OOI.LAR)  SO  TO  9 
IF  (INIIII.E4.CFUX)  GO  TO  9 
MC=NIN0(Ho*1#99) 

P0S*5*MC 

IF  (INIII I. Ei. PERIOD. OR. INIIII .EQ.SX2LAM. OR. INIIII.EO. COLON) 
1IN2,P0S*g)=DDlLAR 
GO  TO  S 
PQS*:5*MC*2 
ATSW*.FALSc, 

OUT (LINE. POS) = INXXII 

GO  TO  G8 

P03S5*HC*4 

GO  TO  S 

P0S*5*HC«-3 

GO  TO  S 

P0S*5*MC*1 

ATSH*.  TRUE. 

GO  TO  S 


IF  (FRAC.Nc.O.OR.dOTH.cQ.l)  GO  TO  48 

SUPSH*, NOT. 3J»SW 

IF  (SUPSH)  LI NE*LINE-1 

IF  (.NOT. SUPSH)  LIN£*LIN£+1 

GO  TO  G8 

IF  (FRAC.NE.3.0R.S3TH.EQ.  2)  GO  TO  48 

SUBSH*. NOT. SJ3SN 

IF  (SU83H)  LlNfc*LlNE*l 

IF  ( .NOT . SUdStf)  LlN£=LINs-i 

GO  TO  **8 

IF  (FRAC.Nc.u)  GO  (0  g8 
Ot/LSH*.  FALSE. 

801  MaBOTrt*-l 
IF  (B0TH*»2i  13,16,17 
PLACE* NC 

IF  (SUPSH . OR. sUBSH)  GO  TO  46 

LlN£*LINc-l 

SUPSH*. TRUE. 

GO  TO  G8 

TOP»NC 

MC*PUCE 

IF  (SU8SH.0R. .NOT.SUPSH)  GO  TO  48 

LINE»LINE*2 

SUPSH*. FALSE. 

SU8SH* .TRUE. 

GO  TO  g8 
SUBSH*. FALSE. 

SUPSH*. FALSE. 

BOTH«C 

MC*MINO (MAXO( HC, TO?) ,99) 

LINE*3 
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2077 
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ROFF 

2103 

ROFF 

2104 

ROFF 

2105 

ROFF 

2106 

ROFF 

2107 

ROFF 

2108 

ROFF 

2109 

ROFF 

2110 

ROFF 

2111 

ROFF 

2112 

72 


AFWL-TR-72-139 


SUBROUTINE  EQROFF 


IF  (RJSR.OR.GLSH)  LIN£*9 

ROFF 

2113 

GO  TO  *8 

ROFF 

2m 

u 

OVLSM-.NOT.OV.SM 

ROFF 

2115 

IF  (.NOT.OVi.3iO  GO  TO  19 

ROFF 

2116 

0P3*5* (NC+1) 

ROFF 

2117 

GO  TO  h8 

ROFF 

2118 

19 

IF  (FRAC.Nt.il  GO  TO  25 

ROFF 

2119 

OLlNxL INE-1 

ROFF 

2120 

QP5*NI  Nil  ( 0P5»  495) 

ROFF 

2121 

OUT (OLIN, 0P5-Z)»U3C0RE 

ROFF 

2122 

nc5*MAxa(s*rt:,0P5> 

ROFF 

2123 

IF  (BOTH. £0.2!  GO  TO  22 

ROFF 

2124 

00  20  I*0P5»HC5»5 

ROFF 

2125 

20 

out(olin,h*>:rcen 

ROFF 

2126 

21 

OUT  ( Oi.  IN,  HC5*  1 )  =USO  ORE 

ROFF 

2127 

GO  TO  43 

ROFF 

2128 

22 

00  23  IXOP5,N05,5 

ROFF 

2129 

IF  (OUT (0 LIN,  I  !  .Et). BLANK!  OJT (OLIN, I!  =PERCEN 

ROFF 

2130 

23 

CONTINUE 

ROFF 

2131 

IF  (0UT(0LIN,MC5+1I .EQ.ATSIGN!  GO  TO  2* 

ROFF 

2132 

GO  TO  21 

R  OFF 

2133 

24 

0UT(QLlN,MC5UI*082 

ROFF 

2134 

GO  TO  48 

ROFF 

2135 

25 

JFsJF+i 

ROFF 

2136 

FRAC0(FRAC,Jr,ll*0P5 

ROFF 

2137 

FRAC0(FRAC,JF,21=NAXQ(5*NC,3P5! 

ROFF 

2138 

GO  TO  48 

ROFF 

2139 

2b 

FRAC=F  RAC  +  1 

ROFF 

2140 

IF  (FR AC-21  22,28,29 

ROFF 

2141 

27 

B0TH=C 

ROFF 

2142 

SUPSH=. FALSE. 

ROFF 

2143 

SU8SW= .FAuSt. 

ROFF 

2144 

QVLSK=. FALSE. 

ROFF 

2145 

PLACE=MC 

ROFF 

2146 

MC*0 

ROFF 

2147 

LINE=5 

ROFF 

2148 

JF  =  U 

ROFF 

2149 

GO  TO  <♦  8 

ROFF 

2150 

28 

T0P*MC 

ROFF 

2151 

nc=u 

ROFF 

2152 

LINE=c 

ROFF 

2153 

JF=0 

ROFF 

2154 

GO  TQ  43 

ROFF 

2155 

29 

FRAC=ii 

ROFF 

2156 

ZNOVE=0 

ROFF 

2157 

LINE*3 

ROFF 

2158 

IF  (RJSH.OK.IiSWI  LINE=9 

ROFF 

2159 

U2»5*PLACt 

ROFF 

2160 

U4=02 

ROFF 

2161 

OIFF*MC-TOP 

ROFF 

2162 

EX=((IA3S(0I-Cl*i!72>*5 

ROFF 

2163 

IF  (OIFF!  30,32,31 

ROFF 

2164 

30 

U4-Q44tX 

R  OFF 

2165 

ZMOVt-2 

R  OFF 

2166 

HC=TOP 

ROFF 

2167 

73 


AFWL-TR-72-139 


GUflRJUTlNt  tQ HOFF 

GO  TO  32 
u2=u2+cX 
ZHUt/Esl 

MO=MINO  <5*MCf4 .SJO-MAaJ  (02'  34)  ) 

00  33  J=3,f<0 

OUT(LIN-:-l,Jf^2i=OUT{5.  J) 

our  u.in;+i,jm4)  =out<6«  ji 
00  33  Z=5 • fa 
OUT  (Z, J)  =  J 

IF  (MOU(J,p). iQ. J)  OUT (Z* J)=t3LANK 
OOHTINUZ 

MU-MIhG<MG«-P-4GE.93) 

MC-/=p*M  G 
PLG=5*PuAGc 
PP=MINI(Plp<-p,49p) 

MCp=MAXJli1C5f  ->P) 

oo  34  i=pp,m;,.s 

0UT<cIw£*1)=3ASH 
00  3/  Z-l «  2 
OLiNsLlNi+Z^Z-^ 

00  3c  J£=l»v; 

F0=FRAC0(Z,J;,1> 

IF  <FO.EU.:>  30  TO  37 
rtOrfc=PLp 

IF  (Z.  cJ.ZMOi/;)  '10VL3H  OVZ+EK 
QPi>=MiN  j  (FO+'Ut/tf^ilsr 
0tN0=.1INj  <FKA30<Z,J£,2)  ♦fT0VEt495) 
Fi?ACOlZ,Jc.l)  =o 
FRACOU.Jc  .2*  =0 
OUT (OLIN*  QP5*c )  = J530RZ 
OUT<OLIW,  OENDH)  *USC0RE 
IF  (2>E<3«2>  jj  TO  jo 
00  3b  Y=OPpfOiNO»5 
OUT (OuIM*  Y)  =  JiRGc.N 
CONTINUE 
GONTlNUc. 

30  TO  **3 

IF  (GtSW.^R.r 2AC.NE.0)  GO  TO  47 
Otft.SK=  »FAGS£« 

RJ3W=.NJT.8JSa 
IF  (.hOT.RJSrf)  30  TO  33 
RPuAGc  =.TG 
MO=0 
LINt=9 
GO  TO  *8 
PCACEsLl.-2-MO 
RP-MlNG(KPLA;:*2,93r 
IF  (PLAGi.Gt.  XP>  50  TO  42 
IF  (OIOCcN.ANJ.CPLACi.NE.O)  30  TO  40 
PUaCE=KP 
GO  TO  42 

EX£=MI NJ ( RP-5. ACE#  CPU ACE) 
NUCP=CPi.ACi-£XC 
N5=5*NOGP 
00  4l  l  =  i#4 


£  |5 

&  % 

p  I 
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SUBROUTINE  ECiROFF 

00  41  J*3.r)0 
JS=  J+P5 

OUT (I*  J+Us) *DJT (I, JS) 

OUT  lit  oS) *i 

IF  (NC0(JS,5> .EU.8)  OUTII , J3> *BLANK 
CONTIf 'U£ 

PGAC£=MAXJ  (PEACE, RP-EXG) 

M0=5*MC«-4 

MC=NINQ  (  MG  «-PlACE  ,99) 

P5=5*PLAC£ 

Mt)=MIK0tM0,5!i;-P5) 

00  43  1=1,4 
Ic=l4c 

00  43  0=3, HO 

out  (i,  j*p5)=3jt  do,  j) 

our ci6, j> 

CONTINUE J  #  5> ‘ :U*  °UT  * 15 ' J> “8UNK 

LIN£=3 

GO  TO  46 

IF  (RJSW.OR.FRAC.NE.O)  GO  TO  47 
OVLSW=.FAGSt, 

CESW=. NOT • CESH 

IF  I.NOr.CtSWi  GO  TO  45 

GPLACE*NG 

NC=0 

GINE=9 

GO  TO  48 

cplace=h.l*m;»/2-2 

CPi.ACE=MAX0C-»LACE,LPGACE*2) 

M0=5*MC+4 

MC=MIN0(MC*C?wAC£,b9) 

P5=5*CPcACt 

MO=MIN0(M9,50J-P5| 

DO  46  1=1,4 
16=146 

00  4c  3=3 , MO 

OUT  II, J*P5)*3JT(I6,J) 

0UT(I6,J|=a 

IF  IMOO(J,5).iQ.3>  OUT  (16,  J|  =3(.ANK 

CONTINUE 

QIOCEN=, TRUE, 

UN£=3 
GO  TO  48 
CRASH5 « TRUE. 

MC=MAX0(KC,1) 

OUT  (1, 5*MC) =S4AR° 

CONrlNUE 
GO  TO  5 


CONTINUE 
00  53  K=1 , 4 
FINAUltK)  •  OOuvAR 
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ROFF 
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SUBROUTINE  cQROFF 

L£N35*MC*,h 
00  50  J=3,LEN 
OB=OUT (<»  J) 

IF  JO ii.~n.it  ,0  TO  SO 
FINAL(L»K) *0d 

50  CONTINUE 
Li=L-i 

LENGTH (K) =Ll 
00  51  J*ltLl 

IF  (FINAL  (L-J,K<  .Nt.BLANO  50  TO  52 

51  LENGTH  (X)  =Lt.N»TH(lO  -1 

52  IF  (LENGTH  (K> . EQ.l)  GO  TO  53 

INL£NG=NAxa(IMLGNG. LENST<<<KI ) 

IF  (K.GT.LMAXJ  LNAX=< 

IF  (K.LT.i.HI'JI  LNINSK 
■>  3  CONTINUE 

UP=4 

IF  (CRASH)  Ua*lQ 
UO  54  K=i»UP 
00  54  J=l«iOJ 

ouru,  j)=o 

IF  (H00( J,3). iQ.fll  OUT (K* J)*dLANK 
54  CONTINUE 

FH AC*o 
BOTH* C 

SUPSW*. FALSE. 

SUOSM=.FAlSc.. 

0l/cSW=. FALSE. 

RJSW=. FALSc. 

CcSM*. FALSE. 

ATSH=.FALSt. 

JlOCLNs.FAuSi. 

CRASri= .FAt.Su. 


& 
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subroutine  micro 

SUBROUTINE  MICRO  CICC.IO.IJ) 

LOGICAL  SECONJ 

DIMENSION  IQAIAI256),  10(132),  IT(132) 
DIMENSION  IIT3L(25a) 

INTEGER  PLUS, ONE ,Z£RO 
COMMON  /FRAME/  I FRA ME 
COMMON  /T ARE/  ITAPt 
DATA  PLUS  ,  ONE »  ZERO/ 1H*, 

DATA  IR£C/u/ 

DATA  IFRAMt/;/ 

OATA  SECONO/.r ALSE./ 

DATA  I ITBL (1) /l33fl/ 

0ATA  IITBL(2)/fl55B/ 

OATA  1IT8L  (3) / 0553/ 

OATA  IITBL U)/ 0558/ 

OATA  1IT8L  (5) / 0558/ 

OATA  I ITBL (6)/ 0553/ 

OATA  I IT3L (7) / 0553/ 

OATA  I ITBL  (8) / 0553/ 

OATA  IlTBL (9) /0718/ 

OATA  IITBL(lj) /055B/ 

OATA  I ITBL (11) /163B/ 

OATA  IITBL(12l/055B/ 

OATA  IITBL (131 /055B/ 

DATA  IITBL(1*>/55B/ 

OATA  IITBL  (15) /133B/ 

OATA  1 ITBL (la) /055b/ 

OATA  IITBL (IT) /0 55 3/ 

OATA  IITBL (IS) /055B/ 

DATA  IITBL (19)/0 553/ 

OATA  IITBL(2il/172B/ 

OATA  IITBL (21) /G 558/ 

OATA  I ITBL  (22) /0552/ 

OATA  1ITBL(23)/055B/ 

OATA  IITBL(2^)/055B/ 

OATA  IIT3L(25) /0558/ 

OATA  I ITBL (2a) /Q55B/ 

OATA  1ITSL(27) /055B/ 

OATA  I ITBL (28) /055B/ 

OATA  I ITBL (29 )/0 558/ 

OATA  I ITBL (30) /0 558/ 

OATA  IITBL(3l)/055B/ 

OATA  I ITBL (32) /055b/ 

DATA  IITBL  1 33 * /Q55B/ 

DATA  IITBL(34)/166B/ 

OATA  IITBL  (3j)/l)b5d/ 

OATA  lIT3L(3a) /055B/ 

OATA  IITBL (37) /0558/ 

OATA  IITBL  (39) /1653/ 

OATA  I I T8L (33) /055B/ 

OATA  IIT8L(4I> /055B/ 

OATA  IITBl (41) /176B/ 

OATA  IITBL (42) /U 55 B/ 

OATA  IiT8L(43)/Q55B/ 

OAFA  I ITBL (4«) /G55B/ 
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SUBROUT  IN£  RICRO 


OATA 

I ITBL (45) 70553/ 

ROFF 

2371 

DA  TA 

IIT8L  (45)  /055B/ 

ROFF 

2372 

OATA 

IITBLW7)  70558/ 

ROFF 

2373 

DATA 

IITBLUS) /055b/ 

ROFF 

2374 

OATA 

IITBL (49) 70558/ 

ROFF 

2375 

DATA 

I ITBL (55  >  70553/ 

ROFF 

2376 

DATA 

IITBL(5i) 70558/ 

ROFF 

2377 

DATA 

11781.(521/0558/ 

ROFF 

2378 

OATA 

IITBL (531/0558/ 

ROFF 

2379 

DATA 

IITBl (54) /G55d/ 

ROFF 

2380 

DATA 

HT8l  (551/3550/ 

ROFF 

2381 

DATA 

IIT8L(5:>/0558/ 

ROFF 

2382 

DATA 

III Bl (52) /055B/ 

ROFF 

2383 

DATA 

x I TBL (53) /0553/ 

ROFF 

2384 

OATA 

IIT8K59* /u55B/ 

ROFF 

2385 

DATA 

IITBL  ic. 1 70553/ 

ROFF 

2386 

DATA 

IITaUfen/0558/ 

ROFF 

2387 

DATA 

HT8L(fai:»/a553/ 

ROFF 

2386 

OATA 

IIT8L(fa3l/:55d/ 

ROFF 

2369 

DATA 

IITBL (641/0558/ 

ROFF 

2390 

DATA 

IITBLioi) 71443/ 

ROFF 

2391 

DATA 

IIT8l (65) /lbOO/ 

ROFF 

2392 

OATA 

IIT8l<67)/1378/ 

ROFF 

2393 

OATA 

IITBL (631/1428/ 

ROFF 

2394 

OATA 

1 ITBL (ci » /Q 538/ 

ROFF 

2395 

OATA 

I ITBL ( 73  I / 0558/ 

ROFF 

2396 

OATA 

IITBL (71i/055B/ 

ROFF 

2397 

OATA 

1IT8L172)/055B/ 

ROFF 

2396 

OATA 

I IT8L ( 73) /C  558/ 

ROFF 

2399 

OATA 

IIT8L(?x)/355B/ 

ROFF 

2430- 

DATA 

IITBL (75) /057d/ 

ROFF 

2451 

DATA 

IIT8L(75)/C74B/ 

ROFF 

2402 

OATA 

IITBL(7D/051B/ 

ROFF 

2403 

OATA 

I ITBL (73) /Q *53/ 

ROFF 

2404 

OATA 

I ITBl ( 73) /0558/ 

ROFF 

2435 

DATA 

IIT8l(3:i 70553/ 

ROFF 

2406 

OATA 

1 IT  Bl (flit /055B/ 

ROFF 

2437 

OATA 

IITBl I62i /055b/ 

ROFF 

2406 

OATA 

1 ITBL (83) /143B/ 

ROFF 

24  39 

OATA 

1 ITBL (84) /162B/ 

ROFF 

2410 

OATA 

IITBl (83) /G55B/ 

ROFF 

2411 

OATA 

1 ITBL (85 1 /055B/ 

ROFF 

2412 

OATA 

T ITBL (87) /I4OB/ 

ROFF 

2413 

OATA 

IITBL (88) /1h13/ 

ROFF 

2414 

OATA 

IITBL(89)/145B/ 

ROFF 

2415 

DATA 

IITBL (95 ) /C57B/ 

ROFF 

2416 

OATA 

IITBL (91 ) /0728/ 

ROFF 

2417 

OATA 

IITBL(92)/047B/ 

ROFF 

2418 

OATA 

1ITBL(93)/052B/ 

ROFF 

2419 

OATA 

I ITBL (94) /0778/ 

ROFF 

2420 

OATA 

L ITBL (95)70763/ 

ROFF 

2421 

OAT* 

I ITBL (95) /046B/ 

ROFF 

2422 

OATA 

IITBc(97) 70508/ 

ROFF 

2423 

OATA 

IITBL (93) 71618/ 

ROFF 

2424 

OATA 

I IT8c (99) /055d/ 

ROFF 

2425 
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jUSRJUTINE  HIC*0 


OATA  IITBUi:.)/0538/ 
OATA  XITBL  (1C  11/0558/ 
OATA  IITdLdi  21/154  8/ 
OATA  IITBLUi5)/0558/ 
DATA  IIT8li10«)/355B/ 
OATA  1 1 Ttic  (1 j > ) / 055 8/ 
DATA  I  ITBt.  (105 ) / 0558/ 
OATA  lIT8Ld:/)/0568/ 
OATA  IITBL  (10s 1/Q628/ 
BATA  IITBLd: Jl/OOCB/ 
OATA  IIT8L(li;i/073B/ 
OATA  I IT8L  (11 1 1/1778/ 
OATA  IITBLdtlJ/lTSB/ 
OATA  IIT8L(113}/173B/ 
OATA  IITBl  (12.!*  1/3558/ 
OATA  IIT3u(l:  / 0556/ 
OATA  IITBLdt5i/3558/ 
OATA  IITBL  (11 7)/ 1468/ 
OATA  IIT8L(113)/Q558/ 
OATA  IITBL  (11 J)/05»8/ 
OATA  IITBLd2:)/Q558/ 
OATA  IITBL (12 11/ 3558/ 
OATA  IITBL  (12 51/0608/ 
OATA  II T6L(123)/055B/ 
OATA  I ITBL (12 * )/ 3558/ 
OATA  IIV8l(125)/1758/ 
DATA  IITBL(12:)/35**B/ 
DATA  IITBl  (12/ 1/1528/ 
OATA  IITBL  (12BT/3558/ 
DATA  IITBL (1221/1318/ 
DATA  IITBL (13 l 1/1028/ 
OATA  IIT8L(13I)/103B/ 
OATA  IIT8L(132)/1048/ 
OATA  IIT8L(13 31/105 8/ 
CATA  IITBLU341/1068/ 
OATA  IITBL**? *)/lj;  8/ 
OATA  IITBL  .  51/1108/ 

OATA  IITBL(13/)/lllB/ 
OATA  IIT8l(13!I)/0558/ 
DATA  I  IT 8u (Is 91/05; 8/ 
OATA  IITBl  (1-* .  l/05y  8/ 
OATA  1 1 TBL  (1*1 1/0558/ 
OATA  IITBL (1421/0558/ 
OATA  1 ITBL (19^1/0558/ 
OATA  IITBL(l4*)/0558/ 
OATA  IITBL(l451/112B/ 
OATA  IITBL  114  51/1138/ 
OATA  IITBL  (14/1/114 8/ 
OATA  IITBL(l431/115B/ 
OATA  IITBL (14^1/1158/ 
DATA  IIT3H15: 1/1178/ 
OATA  IITBL(15l)/12i8/ 
OATA  IIT8L  11521/1218/ 
OATA  I1T3L  (ls31/1228/ 
OATA  1 1 TBL  (15  *  1 / 055  8/ 


ROFF 

2426 

ROFF 

2427 

ROFF 

2426 

ROFF 

2429 

ROFF 

2430 

ROFF 

2431 

ROFF 

2432 

ROFF 

2433 

ROFF 

2434 

ROFF 

2435 

ROFF 

2456 

ROFF 

2437 

ROFF 

2436 

ROFF 

2439 

ROFF 

2440 

ROFF 

2441 

ROFF 

2442 

ROFF 

2443 

ROFF 

2444 

ROFF 

2445 

ROFF 

2446 

ROFF 

2447 

ROFF 

2446 

ROFF 

2449 

ROFF 

2450 

ROFF 

2451 

ROFF 

2452 

ROFF 

2453 

ROFF 

2454 

ROFF 

2455 

ROFF 

2456 

ROFF 

2457 

ROFF 

2458 

ROFF 

2459 

ROFF 

24c  0 

ROFF 

2461 

ROFF 

2462 

ROFF 

2463 

ROFF 

2464 

ROFF 

2465 

ROFF 

2466 

ROFF 

2467 

ROFF 

2466 

ROFF  . 

2469 

ROFF 

2470 

ROFF 

2471 

ROFF 

247? 

ROFF 

2473 

ROFF 

2474 

ROFF 

2475 

ROFF 

2476 

ROFF 

2477 

ROFF 

2476 

ROFF 

2479 

ROFF 

2480 

79 


rftr  f  t  -at  ■  r 


3UdR0UTIN£  MICRO 


OATA  IITdL(i5:>l/05bB/ 

ROFF 

2481 

DATA  IITBL  (I>al/j5b3/ 

ROFF 

2482 

OATA  IITBL (15  7 )/  355  8/ 

ROFF 

2483 

OATA  IITBL (1591/0558/ 

ROFF 

2484 

OATA  IITBL  (15 31/ J5>3/ 

ROFF 

2485 

OA I A  IITBLUi  j)/055d/ 

ROFF 

2486 

OATA  IITBL (1611/1643/ 

ROFF 

2487 

OATA  IITBL  (1:£1/1238/ 

ROFF 

2488 

OATA  IITSL(1531/124B/ 

ROFF 

2489 

OATA  IITBL(ls*>/1258/ 

ROFF 

2490 

OATA  IITBL(155l/12&B/ 

ROFF 

2491 

OATA  IITBL  (ir: 1/12 7B/ 

ROFF 

2492 

OATA  IITBL  (167  l/13i,8/ 

ROFF 

2493 

OATA  IITBL  (1561/1318/ 

ROFF 

2494 

OATA  I I TBL (153) / 132 8/ 

ROFF 

2435 

OATA  IIT8L(l/;)/d558/ 

ROFF 

2496 

OATA  IIT3L(17ll/Q5bB/ 

ROFF 

2497 

OATA  11 TBL (17 2)/ 0553/ 

ROFF 

2496 

OATA  IITBL (1731/0553/ 

ROFF 

2499 

OATA  HTBi.(lTi.)/355B/ 

ROFF 

25C0 

OATA  11 TBL (17  >1/0558/ 

ROFF 

2591 

OATA  IITBl  il7  51/3558/ 

ROFF 

2592 

OATA  11T8L  (17 / )/13h3/ 

ROFF 

25C3 

OATA  IITBL(173)/1743/ 

ROFF 

2534 

OATA  I ITdL (17  3 1/15*  8/ 

ROFF 

25C5 

OATA  IITBL  (19  d/OSbB/ 

ROFF 

2506 

OATA  IITBL(1811/355B/ 

ROFF 

25  C  7 

OATA  IITBL (19 21/0353/ 

ROFF 

25C  8 

OATA  IITBL‘133)/355B/ 

ROFF 

2559 

DATA  IITBL (19*1/ 35 5 3/ 

ROFF 

2510 

OATA  IITBL (1951/0558/ 

ROFF 

2511 

OATA  IITBL (18s// 0558/ 

ROFF 

2512 

DATA  IITBL(197)/0633/ 

ROFF 

2513 

OATA  IITBL (18 91/355 8/ 

ROFF 

2514 

OATA  I IT8L (19 3 1/0648/ 

ROFF 

2515 

OATA  IITBL (1301/3678/ 

ROFF 

2516 

OATA  IIT8L(131)/150B/ 

ROFF 

2517 

OATA  IITBL (1321/ 3c 3 8/ 

ROFF 

2516 

DATA  I ITBL  (13  51  0018/ 

ROFF 

2519 

OATA  IITBL(13«}/0028/ 

ROFF 

2520 

OATA  IITBL(13?l/3338/ 

ROFF 

2521 

OATA  I ITBL  (13 a  1/3048/ 

ROFF 

2522 

OATA  IITBl (13^1/005 8/ 

ROFF 

2523 

OATA  1 1 TBL  (1391/ 0058/ 

ROFF 

2524 

OATA  IITBL (1331/0078/ 

ROFF 

2525 

OATA  I ITBL  (25. 1/31CB/ 

ROFF 

2526 

OATA  IITBL (25 11/011 8/ 

ROFF 

2527 

OATA  IITBL  (2021/0558/ 

ROFF 

2528 

OATA  IITdL  (233 1/0558/ 

ROFF 

2529 

OATA  IIT8L  (2541/0553/ 

ROFF 

2530 

OATA  IITaL(2i5)/055B/ 

ROcF 

2531 

OATA  IITBL  (2&4)/955C> 

ROFF 

2532 

OATA  IITBl  (2571/0558/ 

ROFF 

2533 

DATA  I ITBL (2c 81/ 3648/ 

ROFF 

2534 

OATA  UTBL(2531/0128/ 

ROFF 

2535 

I  I 


AFWL-TR-72-139 


SUBROUTINE  MICRO 

OATA  IITBL  (210/3138/ 

DATA  IITBL (2111/3148/ 

OATA  I IT8L (2121/3138/ 

OATA  I1T8L<21SI/0168/ 

OATA  II T8L (2141/3178/ 

DATA  I IT8l (21 7 ) / 020 8/ 

OATA  I IT8l(21»)/0218/ 

OATA  IIT8L  (21/ )/ 0228/ 

OATA  UTBL<2l8>/0558/ 

OATA  IITBL (2131/3558/ 

OATA  IITBt.  (22  j  )/ 0558/ 

OATA  I IT0L (22 t )/ Q55B/ 

OATA  1 1  TBi,  (22  21/3558/ 

DATA  IITBL (223)/055B/ 

OATA  IIT8L (2241/0538/ 

OATA  IIT8L(227)/0558/ 

OATA  I ITBL (2231/3238/ 

OATA  IITBL (2271/0248/ 

OATA  IITBL (2291/0253/ 

OATA  II  TBL  (22  3  )  /  0268/. 

OATA  IITBL  <230/0278/ 

OA1  A  I1TQL( 23 0/0303/ 

DATA  IIT8l(232)/0313/ 

OATA  IITBL (233)/0328/ 

OATA  IITBL  (23-*)/0558/ 

OATA  IirBL(235)/053B/ 

DATA  IITBL  (235 1/0553/ 

OATA  IITBL(2371/055B/ 

OATA  1IT8L(233)/D55B/ 

OATA  IITBL (23 31/0558/ 

OATA  IIT8L(24:)/0338/ 

OATA  IITBL  (2411/G34B/ 

OATA  IITBL  (2421/3358/ 

OATA  IITBL  ( 24 3)/03bB/ 

OATA  IITBL (244) / 3378/ 

OATA  IITBL  (24j 1/3408/ 

OATA  IITBL  (2*t3  )/ 0418/ 

OATA  IITBL  (247)/d42B/ 

DATA  IITBL(24S)/043B/ 

OATA  IITBL  12491/04  8/ 

OATA  I  ITBL  (25  0/055 8/ 

OATA  IITBL (25 11/3558/ 

OATA  IITBL (2321/3558/ 

OATA  IITBL (2531/3558/ 

OATA  I IT8LC254) /0558/ 

OATA  IITBL (23 3 1/3556/ 

OATA  IITBL(23al/0558/ 

IF  (StCONO)  33  TO  l 
CALL  SSRTCrt  (l.ITAPEl 
CALL  SSHTCH  (2.IMIKE1 
IF  (IMIKE . EQ. 1)  CALL  INIT  (3) 

S£COND= • TRUE. 

CONTINUE 

IF  (ITAPE.EQ.tl  CALL  MRT9209  (ICC«IG.IJ> 
IF  (IMIKE. E0.21  RETURN 


RQFF 

2536  3 

ROFF 

2537  2 

RCFF 

2538  3 

ROFF 

2539  3 

ROFF 

2540  l 

ROFF 

2541  { 

ROFF 

2542  •! 

ROFF 

2543  i 

ROFF 

2544  \ 

ROFF 

2545  i 

ROFF 

2546  «| 

ROFF 

2547  •) 

ROFF 

2548  I 

ROFF 

2549  J 

ROFF 

2550  S 

ROFF 

2551  \ 

ROFF 

2552  1 

ROFF 

2553  * 

ROFF 

2554  I 

ROFF 

2555  4 

ROFF 

2556  : 

2557  ; 

ROFF 

ROFF 

2558  i 

ROFF 

2559  !  j 

ROFF 

2560  l 

ROFF 

2561  i 

ROFF 

2562  ’ 

ROFF 

2563  4 

ROFF 

2564  I 

ROFF 

2565  | 

ROFF 

2566  i 

2567  i 

ROFF 

ROFF 

2568  | 

ROFF 

2569  | 

ROFF 

ROFF 

2570  |  I 

2571  1  1 

ROFF 

2572  1  4 

ROFF 

2573  .  |  1 

ROFF 

2574  I  J 

ROFF 

2575  1  | 

ROFF 

257.6  5  1 

2577  f  1 

ROFF 

ROFF 

2578  1  ;| 

ROFF 

ROFF 

2579  j  3 

2580  ;  1 

ROFF 

2581  i  g 

ROFF 

2582  ;  1 

ROFF 

2583  i  2 

ROFF 

2584 

ROFF 

2565  * 

ROFF 

2586  | 

ROFF 

2587  } 

ROFF 

2588  t 

ROFF 

2589  j 

2590  | 

ROFF 
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SUBROUTINE  NRHER 
SUBROUtiNE  HRITtR  <IOATA,N> 

SS»? ■•ays.JiffS1-  “IM  — 

lpkiAlUtri\t(*J0AU  IS  ^ISHT  justified 

upper  CASE  A-Z  JR  OCTAL  01-32 

KWWcSrif^S 

»^1S61ao,!"nfo;jJ  08  MT*1-  3M'3« 

•*f“  &!.“,{!?!;,?"  * °* 

00  6  1*1, N 
J-IOATA(I) 

ICASE*SHIFT ( J . ANO. 10  0  8» -a) 

ITALIC*SrtIFT<  J,AN0.200B»-7| 

ifiz«sSriIFT(J,ANO,‘*°oo»“8) 

CONTlJ5r£T£?  F°R  SYHdQL  AN°  rAB  H00£ 

50  r° 5 

IQTAL*ITAL1C 
CONTINUE 
HOVE  dtAM 
OA*PSOX 

IF  (XSI2E.EQ. 1)  0A*PS1X 
A*A+OA 
J^J.ANO .778 
IF  (J.EJ.OOU)  GO  TO  4 
IF  (J.EQ.558)  GO  TO  5 

UPSHIFT <J, 541 

CALL  PlOTQ  ia.A,0»0,2> 

plot  character 
CONTINUE 

-nLLP^°TJ  <  J*  IROT  tl,ISIZ£,o) 

>»0  TO  5 

CONTINUE 

s!s.ar# ‘M"u/‘-s***sji-.w:s 

CONTINUE 

A=U, 

RETURN 
entry  aov an 
OAT A  IROT/1/ 

FINISHED 

NOH  HOVE  BtAN  TO  NEXT  LINE 
• 

8*3*Pl1Y 

CALL  PLOTfl  (A , 8, 0, 0 , 2) 

RtTURN 
ENTRY  PAuER 


R  OFF  260  4 

ANO  LONER  CASE  ROFF  2605 

ROFF  2606 

ROrF  2607 

ROFF  2606 

ROFF  2609 

ROFF  2610 

ROFF  2611 

ROFF  2612 

ROFF  2613 

ROFF  2616 

ROFF  2615 

ROFF  2616 

ROFF  2617 

ROFF  2616  ~ 

ROFF  2619 

ROFF  2620 

ROFF  2621 

ROFF  2622 

ROFF  2623 

ROFF  2624 

ROFF  2625 

ROFF  2626 

ROFF  2627 

ROFF  2626  ' 

ROFF  2629 

R OFF  2630 

ROFF  2631 

ROFF  2632 

ROFF  2633 

ROFF  263V 

ROFF  2635 

ROFF  2636 

ROFF  2637 

RU.F  2636 

ROFF  2639 

ROFF  26*0 

ROFF  26  vl 

ROFF  26V2 

ROFF  26V3 

ROFF  26 VV 

ROFF  26  V5 

ROFF  26 V6 

ROFF  26V7 

ROFF  26 V6 

ROFF  26*9 

ROFF  2650 

ROFF  2651 

ROFF  2652 

ROFF  2653 

ROFF  265V 

ROFF  266$ 

ROFF  2656 

ROFF  2657 

ROFF  2656 


ffitAWC  li.iii'Wui  *  w!lrJh  l>>  l  taW  Ll  iii  Wl.-**.  ft  jtl1  «£  <  Jt*!.: 


E 
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SUtHOUTlNs  WRITER 
a*UPU 

«£mJu'Ta 

tfURy  mu 

OAU  PtOfU  (0,0,3,C,7) 

PS0X»i023,/4Qi.. 

PS1X«1023./b;. 

P4.1YS1023./55. 

JPti*pLiy/a. 

A=n. 
d*UPtl 
St  r  URN 
tNO 


ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 


2659 

2660 

2664 

aez 

2663 

26b4 

2665 

2666 
2667 
2666 

2669 

2670 

2671 
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lOEHr  PLOTQ 
PROGRAM  LENGTM 


ROFF  2672 


blocks 

PROGRAM* 

SMAP 


LOCAL 

COMMON 


entry  points 
000001  PLora 
external  symbols 


XRCL 

oET3A 

CON 

MACRO 

DATA 

ENOM 

EXT 

USE 

XMI N 

ass 

AMAx 

JATA 

YMIN 

ass 

YMAx 

JATA 

XMI 

3SS 

ANA 

ass 

VMI 

ass 

YMA 

ass 

X SCALE 

JATA 

YSCALc 

JATA 

JSE 

ENTRY 

NAME 

VFO 

PLOTQ 

ass 

SYSTEM  ABNORM. 


•SAVE  AO 


♦GATHER 


EXT  XRC1-*.;  1*3  A  »  SYSTEM*  ABNORH. 

USE  /SM.  fv 

8SS  1 

JATA  1 

BSS  1 

JATA  1 

3SS  1 

3SS  1 

3SS  1 

3SS  1 

JATA  1023 

JATA  1023 

JSE  * 

ENTRY  PLOTQ 

YFO  42/OHJLOr Qt 18/0 

3SS  1 

)  AS  REQUIRED  BY  FTN  CONVENTION 
SX6  AO 

SAb  3AVA0 

JP  5  ARGUMENTS 


S  87 

1 

SA1 

A1 

581 

XI 

5A1 

Al+87 

5B2 

XI 

SAX 

Ai+37 

SB3 

XI 

SA1 

Al+37 

SB4 

XI 

SA1 

Al+87 

585 

XI 

SAO 

OATA+i 

5A2 

35 

5X0 

87 

SX1 

X2-3 

MG 

XI, SC3 

ZR 

XltSPSM 

5X1 

Xl-2 

.JUMP  IF  SET  TAB  NODE  PARAMETERS  K  *  3 


ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
R  OFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 
ROFF 


2673 

2674 

2675 

2676 

2677 

2678 

2679 

2680 
2681 
2662 

2663 

2664 

2665 

2666 
2687 
2686 
2669 

2690 

2691 

2692 

2693 

2694 

2695 

2696 

2697 

2698 

2699 

2700 

2701 

2702 

2703 

2704 

2705 

2706 
273? 
2706 

2709 

2710 

2711 

2712 
27  If 


'AfUtJLK ilti 


-  ■  tas^^i^K^g^ssg^g^sg 
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NS 

ZR 

sxi 

NG 

ZR 

5X1 

ZR 

•FALL  TrtROJGH 
won  SA1 
3AO 
£Q 

*  PLOT  »OINT 

pfm  iAj. 

SA2 

SXc 

ZR 

1X6 

PPM  ZR 

584 
»X6 
SA6 
*J 
SA3 

LX1 

3X6 

SA6 

£Q 

543 

3X7 

SA7 

cQ 

RJ 

LX1 

3X6 

5A6 

£Q 

RJ 

SA5 

-XI 

3X7 

5A7 

£Q 

-XI 

HX2 

5A3 

3X7 

3X6 

1X6 

5A7 

5A6 

cQ 

*J 

5A3 

LX1 

3X6 


•AOO  HIGN  INTENSITY  SIT 
.EXIT  IF  N  =  0 


•STORE  CONTROL  HORD 


{{*S5«  *^HP  IF  P0INT  hooe  * *  4 

XlfPSTN  .JUMP  IF  PLOT  SYMBOL  ENTRY 

‘  mUn  IF  PL0T  CH«ACTERS  entry 

Xi.PW  .JUMP  IF  RECEIVE  INITIAL  X.Y.IERR 

cXI^IlMgV  ENtS^  IF  TEKMINATE  F«AME  *  »  13 

SAVA  l’ 

*1  RESTORE  AO 

BO»BO,PLOTQ 

P-0T  1  'O  '  POINTS  IN  point  node 
83 

30208 
Xl.PPNl 

«"«.  ;‘;;rHJONnlN,ENS,T,  SIT 

608 

SCAL?  ‘STORE  CONTROL  HORD 

A0-B7 
308 
X14X3 

IIXPPMG  *Sr°Rt  PIRST  S£T 

SCAL 
A0-B7 
X1+X3 

Sn^o.ppni  •3r08E  SECOm  SEI 

SCAL 
448 

2S.NN.PPNE  •S,“"£  rHtR»  SE' 

SCAL 
AO 
148 
X5+X1 

80.BN.PPN2  •ST°liE  FOgRTH  SEf 
SCAL 
6Q8 
6GB 
AO 

X1*X2 
-X2»Xi 
X3+X6 

J0*B7  .STORE  FIFTH  SET 

B0»84,PPN3 
SCAL 
A0*B7 
308 
X1*X3 


•STORE  FIRST  SET 


•STORE  SECOND  SET 


•STORE  T NIRO  SET 


•STORE  FOURTH  SET 


•STORE  FIFTH  SET 


ROFF 

2714 

Ks5  ROFF 

2715 

R  OFF 

2716 

K*6  ROFF 

2717 

K*7  ROFF 

2718 

ROFF 

2719 

ROFF 

272D 

ROFF 

2721 

ROFF 

2722 

ROFF 

2723 

ROFF 

2724 

ROFF 

2725 

ROFF 

2726 

ROFF 

2727 

ROFF 

2728 

ROFF 

2729 

ROFF 

2730 

ROFF 

2731 

ROFF 

2732 

ROFF 

2733 

ROFF 

2734 

R  OFF 

2735 

ROFF 

2736 

ROFF 

2737 

ROFF 

2738 

ROFF 

2739 

ROFF 

2740 

.TOFF 

2741 

ROFF 

2742 

ROFF 

2743 

ROFF 

2744 

ROFF 

2745 

ROFF 

2746 

ROFF 

2747 

ROFF 

2748 

ROFF 

2749 

ROFF 

2750 

ROFF 

2751 

ROFF 

2752 

ROFF 

2753 

ROFF 

2754 

ROFF 

2755 

ROFF 

2756 

Ruff 

2757 

('.OFF 

2758 

ROFF 

2759 

ROFF 

2760 

ROFF 

2761 

ROFF 

2762 

ROFF 

2763 

R  OFF 

2764 

ROFF 

2765 

ROFF 

2766 

ROFF 

2767 

ROFF 

2768 

ROFF 

2769 

ROFF 

2770 

I'ak'fi  ijcii  fAnwii 


iW-^WtW 
V  i'&yu  . 
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SA6 

A3 

EQ  ‘ 

SO. 84. PPH5 

<J 

SCAu 

SA3 

AO+37 

8X6 

X1+X3 

SA6 

A3 

EQ 

B0.80.PPK2 

PPN2 

SX7 

B7*B7 

POUT 

EQ 

BO. 30. P10F 

PPN3 

SX7 

87 

POUT 

EQ 

B0.S0.P10F 

PPM4 

SX7 

BO 

RJ 

POUT 

EQ 

8Q.30.P10F 

PPHi 

3X7 

3 

POUT 

EQ 

B0.30.P19F 

‘.  DO 

SCALED  => 

LOTTING  A=X»I 

SCP 

SA1 

84 

SA3 

S3 

wXi 

728 

SB4 

X3 

SX6 

32108 

*L 

Xl,SCa0 

5X2 

4003 

LX3 

73  8 

3xe 

X6*X2 

»L 

X3,SC30 

584 

84-87 

SUP. 

cXl 

1 

*L 

xi.scpi 

1X6 

X6*X0 

SCP1 

-X6 

60S 

5A6 

A0-d7 

SCAl 

SA4 

B3 

ZR 

X4.P10F 

5A3 

AO-87 

-XI 

3  OB 

3X6 

XlvX3 

uT 

B0.84.5CP3 

5A4 

IXCUR 

AX6 

60B 

5A5 

A4+87 

-  X6 

60S 

AX1 

30B 

-XL 

448 

3X6 

X6+X1 

LX5 

308 

1X4 

X4+X5 

9X6 

X4+X6 

5A6 

AO-37 

SCP2 

5X7 

B7 

RJ 

POUT 

EQ 

8C.30.P1QF 

.STORE  SIXTH  SET 


.STORE  SEVENTH  SET 


.SENSE  CONTINUOUS  END  POINTS 


.SENSE  N  EVEN 


.SENSE  EON  INTENSITY 


00  NOT  ORAM 


.0U1PUT  VECTOR  FROM  CURRENT  POSITION 


HOFF 

HOFF 

ROFF 

HOFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

R  OFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

R  OFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

ROFF 

R  OFF 

ROFF 

ROFF 

ROFF 

ROFF 


2771 

2772 

2773 

2774 

2775 

2776 

2777 

2778 

2779 

2780 

2781 

2782 

2783 

2784 
2765 

2786 

2787 

2788 
2769 

2790 

2791 

2792 

2793 

2794 

2795 

2796 

2797 

2798 

2799 
2600 
2801 
2802 
2803 

2604 

2605 
2806 
2807 
2608 

2809 

2810 
2811 
2812 
26*3 

2814 

2815 

2816 

2817 

2818 

2819 

2820 
2621 
2822 

2823 

2824 
2025 
2826 
2827 


I 


APWL-TP-72-139 


S0P3 

SA6 

AO-37 

ROFF 

2828 

SCal 

ROFF 

2829 

5A3 

AO-37 

ROFF 

28.;o 

3X6 

A3+X1 

ROFF 

2R.»1 

SA6 

AO-37 

.STORE  FIRST  SET  END  POINTS 

ROFF 

2&32 

£Q 

B0tB4. SGP2 

ROFF 

2833 

RJ 

SCAl 

ROFF 

2834 

.XI 

443 

ROFF 

2835 

3X6 

XI 

ROFF 

2836 

3A6 

AO 

.STORE  SECOND  SET  E.JO  POINTS 

ROFF 

2837 

ZU 

BQ.B4«SCP4 

ROFF 

2838 

ZJ 

SCAL 

ROFF 

2839 

SA4 

AO 

ROFF 

2840 

.XI 

148 

ROFF 

2841 

3X6 

X4*X1 

ROFF 

2842 

3A6 

A4 

.STORE  THIRD  SET  OATA  POINTS 

ROFF 

2843 

£Q 

BOt 34. SCP4 

ROFF 

2844 

iJ 

SCAL 

ROFF 

2845 

3A3 

AO 

ROFF 

2846 

NX2 

60B 

ROFF 

2847 

.Xi 

608 

ROFF 

2848 

3X7 

X1#X2 

ROFF 

2849 

3X6 

-X2*X1 

• 

ROFF 

285U 

1X6 

X3+X6 

ROFF 

2851 

3A7 

A0+d7 

.STORE  FOURTH  SET  END  POINTS 

ROFF 

2852 

SA6 

A3 

ROFF 

2853 

ZQ 

86.34.  SC35 

ROFF 

2654 

RJ 

SCAl 

ROFF 

2855 

SA3 

A0*37 

ROFF 

285c 

.XI 

30B 

ROFF 

2857 

3X6 

X1*X3 

ROFF 

2858 

3A6 

A3 

.STORE  FIFTH  SET  ENO  POINTS 

ROFF 

2859 

£Q 

BO.B4.SCP5 

ROFF 

2860 

RJ 

SCAL 

ROFF 

2861 

3A3 

A0vB7 

ROFF 

2862 

3X6 

X1*X3 

ROFF 

2863 

SA6 

A3 

.STORE  SIXTH  SET  END  POINTS 

ROFF 

2864 

•a 

80.30.  SCP5 

ROFF 

2865 

SC?*# 

3X7 

B7+B7 

ROFF 

2866 

RJ 

POUT 

ROFF 

2857 

£Q 

B0.B0.P1QF 

ROFF 

2868 

S0?3 

3X7 

3 

ROFF 

2869 

RJ 

POUT 

ROFF 

2870 

£Q 

BO# 80«  P10F 

ROFF 

2871 

•  3CA. 

ING  ROUTINE 

ROFF 

2872 

SCAL 

3SS 

1 

ROf  c 

2873 

3A1 

85 

ROFF 

2874 

ZR 

Xl.SCLl 

ROFF 

2875 

1X2 

X1-X0 

ROFF 

2876 

ZR 

X2.SC.8 

ROFF 

2877 

1X3 

X2-X0 

ROFF 

2678 

ZR 

X3,sr,.9 

ROFF 

2879 

3X1 

Xl-15 

ROFF 

'2880 

ZR 

X1,SCl9 

ROFF 

2881 

SCul 

3A3 

XHIN 

•XPQS= (A-XNIN) 'XSCALE+XORIG 

ROFF 

2882 

SA6 

81 

. TP OS* (8- THIN) *YSC ALE ♦VORIG 

ROFF 

2883 

RX4 

X5-X3 

ROFF 

2884 

88 


*-./|_-to_72-139 


E 


SCL» 


♦ 

S1H 


PiOF 


♦ 

PSYi 


-*5 

138 

ROFP 

29h2 

1X1 

X1+X5 

ROFF 

2943 

£U 

80,80, SGAL 

roff 

2944 

JlFr 

.RtNTIAL  AGSOlUTE  SCALINb 

roff 

2945 

5A3 

XCUR 

,XPOS*AtXCUR 

ROFF 

2946 

3  A2 

31 

,YPOS=B*YCUR 

ROFF 

2947 

RX4 

X2»X3 

roff 

2948 

i  A  i 

A  3*37 

ROFF 

2949 

<X7 

80,  *4 

ROFF 

2950 

3A2 

82 

ROFF 

2951 

4X0 

X2*X1 

ROFF 

2952 

RXb 

80, X0 

ROFF 

2953 

ZR 

80 , SCL2 

.JUMP  WITH 

XcsYPOS 

ANO 

X7*XPOS 

ROFF 

295h 

A8S0 

lUTE  scaling 

ROFF 

2955 

SA1 

81 

,XPOS*X 

ROFF 

2956 

SA2 

82 

•ypos=y 

ROFF 

2957 

JXc 

X2 

ROFF 

2958 

3X7 

XI 

ROFF 

2959 

ZR 

80.SCL2 

•JUMP  MITH 

X6=YP0S 

ANO 

X7*XPOS 

ROFF 

2960 

•  update  current  x 

AND  i  POSITIONS 

ROFF 

2961 

3A1 

XPOS 

•XCUR=XPOS 

ROFF 

2962 

3  A3 

IxpuS 

• IXCUR=I XPOS 

ROFF 

2963 

3X6 

XI 

ROFF 

2964 

SA2 

Al«-87 

.ycur=vpos 

ROFF 

2965 

3  Ah 

A3*87 

•IYGUR*IYPOS 

ROFF 

2966 

3X7 

X2 

ROFF 

2967 

SA6 

XCUR 

ROFF 

2968 

SA7 

A6+87 

ROFF 

2969 

3X6 

Xj 

ROFF 

2970 

3X7 

X4 

ROFF 

2971 

3A6 

IXCJR 

ROFF 

2972 

3A7 

Ab«-87 

ROFF 

2973 

£Q 

PLOT  1 

•  EXIT 

ROFF 

2974 

CONTINUOUS  P-OT  SYMBOL  A 

,8  =  POINTS 

I=NO  OP  POINTS 

J*0  ROFF 

2975 

SA2 

83 

ROFF 

2976 

3  A1 

84 

ROFF 

2977 

NG 

X2,PSJ 

ROFF 

2978 

384 

x2 

ROFF 

2979 

385 

80 

ROFF 

2960 

3X6 

36B 

ROFF 

2981 

3A6 

8368 

ROFF 

2982 

RJ 

OdCO 

ROFF 

2983 

3X7 

208 

ROFF 

2984 

3A7 

8368 

ROFF 

2985 

HX1 

6 

ROFF 

2986 

3Xc 

Xl*Xc 

ROFF 

2987 

_  X6 

6 

ROFF 

2988 

383 

X6 

ROFF 

2989 

-Q 

80 , 34,  Pi-0  T 1 

•EXIT  N 

*  0 

ROFF 

2990 

rj 

SCAc 

ROFF 

2991 

3X5 

20008 

ROFF 

2992 

SA3 

N0R01 

ROFF 

2993 

3X2 

-X5*Xl 

ROFF 

2994 

SAL 

WOROl+2 

ROFF 

2995 

.X2 

30B 

ROFF 

2996 

LX3 

608 

ROFF 

2997 

„X1 

608 

ROFF 

2998 

A 


*ji 

4 


I 

I 

i 

1 

1 

I 

3 


i? 

4i 


I 


AFWL-TR-72-139 


91 


I  1 

3X6 

X2*X3 

ROFF 

2999  1 

-a 

1  ft 

sx<* 

X'.*a3 

ROFF 

3000  1 

1  1  . 

-X4 

168 

fdOFF 

3001 

1 

1X5 

608 

ROFF 

3002 

i*S 

>  B 

1X6 

X6*X4 

ROFF 

3003 

1 

3X7 

X1*X5 

ROFF 

3034 

§ 

|  1 

5A7 

AO 

ROFF 

3005 

1 

f,  I 

3X5 

-X5*Xl 

R  OFF 

3006 

3 

r  I 

1X6 

X6*X5 

ROFF 

3007 

3 

5A6 

AO-87 

.STORt  FIRST  SET 

ROFF 

3008 

£ 

1  1 

£  * 

£Q 

B6*d0*PSl 

ROFF 

3009 

la 

IJ 

scal 

R^F 

3010 

% 

1  f 

SA3 

AO 

jFF 

3011 

1 

4 

.XI 

308 

ROFF 

3012 

t 

I  * 

JXo 

Xi*X3 

ROFF 

3013 

3  Ac 

AO 

.STORE  SECONO  SET 

ROFF 

3014 

|| 

i  i 

•a 

84*80, PSi 

ROFF 

3015 

1 

i  ^ 

<J 

scal 

R  OFF 

3016 

1 

5A3 

AO 

ROFF 

3017 

i 

i  1 

3X6 

X1  +  X3 

ROFF 

3013 

$ 

1  i 

5A6 

AO 

.STORE  THIRD  SET 

ROFF 

3019 

p  i 

:a 

80,84, PSI 

ROFF 

3020 

3 

p  i 

rj 

SCAc 

ROFF 

3021 

i 

3 

t 

wXi 

448 

ROFF 

3022 

a 

® 

3X6 

XI 

ROFF 

3023 

s 

s  t . 

5A6 

A0*d7 

.STORE  FOURTH  SET 

ROFF 

3024 

s 

£Q 

80*34,  PS2 

ROFF 

3025 

■S 

a 

?  * 

5 

SCAl 

ROFF 

3026 

| 

1  1 

3  A3 

A0*87 

ROFF 

3027 

-i 

1  •■ 

L  XI 

143 

ROFF 

3028 

1 

3X6 

X1*X3 

ROFF 

3029 

S  ' 

!: 

% 

SA6 

Afl*87 

.STORE  FIFTH  SET 

ROFF 

3030 

£U 

30*30*  P32 

ROFF 

3031 

r 

% 

P'51  5X7 

B7*d7 

R  OFF 

3032 

i 

RS 

POUT 

ROFF 

3033 

t 

£ 

£Q 

80*80,  P10F 

ROFF 

3034 

B 

p 

PS2  3X7 

3 

ROFF 

3035 

RJ 

POUT 

ROFF 

3036 

1 

£Q 

80*80*  PlflF 

ROFF 

3037 

1 

*  .SET  SYMBOL  PARAMETERS  A*0 * 8*0RIENT, I*-l. J=ISIZ,K*5 

ROFF 

3038 

t- 

PS3  3A3 

82 

ROFF 

3039 

I 

.XI 

7 

ROFF 

3040 

5A4 

MOROl 

ROFF 

3041 

( 

1 

1X6 

0 

ROFF 

3042 

| 

ZR 

X3,PS4 

ROFF 

3043 

| 

t 

5X6 

87*87 

ROFF 

3044 

* 

•i 

PS4  5A5 

M0R0i*2 

ROFF 

3045 

J 

| 

3X6 

X6*X4 

ROFF 

3046 

3 

r 

1X7 

X5  <1 

ROFF 

3047 

1 

1 

5A6 

Ah 

ROFF 

3048 

1 

t- 

g 

5A7 

A5 

ROFF 

3049 

I 

V 

£Q 

PLOT  1 

.EXIT 

ROFF 

3050 

| 

♦  .PLOr  1 

-20  CHAR AC T 

c.RS  IN  TAB  HOOE 

ROFF 

3051 

£ 

•  • A*A3QR 

OP  STRING 

8  »  ORIENT  I  s  NO  Of  CHAR  J  -  SIZE  K  *6 

ROFF 

3052 

1 

PC  5A1 

83 

•READ  N 

ROFF 

3053 

i 

4 

f 

5A2 

84 

.READ  CHAR  SIZE 

ROFF 

3054 

1 

1 

1X3 

54 

ROFF 

3055 

| 

3X2 

-X3*X2 

ZR 

X1.PL3T1 

3X3 

X2 

-  X2 

7 

3X6 

X3 

-X6 

3 

3X5 

X3-2 

PL 

X5.PC1 

5X6 

108 

Z  R 

X3.PC1 

5X6 

148 

SAt 

82 

4X7 

0 

ZR 

X1.PC2 

5X1 

87*87 

3X7 

X6 

MXe 

0 

5A6 

lx 

5A3 

WORD 1*1 

5X4 

17778 

IXc 

X1+X3 

SA1 

IXCUR 

SA3 

A?  *87 

3X6 

Xb*X2 

1.X6 

608 

3X1 

X1*X4 

5A7 

A6*87 

LX1 

448 

3X3 

X3*X4 

-X3 

306 

1X3 

Xl*X3 

3X6 

X3*X6 

5A1 

81 

SAc 

AO-87 

RJ 

OBCO 

5A2 

B3 

5A6 

TEMP 

5X7 

X2-123 

N3 

X7.PC3 

r.Ai 

61*87 

?  j 

OBCO 

5A6 

A6*87 

SA2 

83 

5*5 

TEMP 

5B5 

X2 

1X2 

X2*X0 

5A3 

AO-87 

AX7 

87, X2 

3X1 

X5 

5B6 

X7 

NX4 

146 

SX7 

B5 

3B3 

87 

5X5 

56028 

3X2 

X4*X1 

.XI 

148 

LX2 

308 

•EXIT  N  *  0 

.«t:AO  ORIENTATION  PARAMETER 


•  85 =N 

•BE  *  N/2 

•  X4  *  MASK 

•X5  •  TAB  HOOE  EXIT 


ROFF 

3056 

ROFF 

3057 

ROFF 

3058 

ROFF 

3053 

ROFF 

3060 

ROFF 

3061 

ROFF 

3062 

ROFF 

3063 

ROFF 

3064 

ROFF 

3065 

ROFF 

3066 

ROFF 

5067 

ROFF 

3066 

ROFF 

3069 

ROFF 

3070 

ROFF 

3071 

ROFF 

3072 

ROFF 

3073 

ROFF 

3074 

ROFF 

3075 

ROFF 

>076 

ROFF 

3077 

ROFF 

3078 

ROFF 

3079 

ROFF 

5080 

ROFF 

3081 

ROFf 

3082 

ROFF 

3083 

ROFF 

3064 

ROFF 

3085 

ROFF 

3066 

ROFF 

3067 

ROFF 

3086 

ROFF 

3089 

ROFF 

3090 

ROFF 

3091 

ROFF 

3092 

ROFF 

3093 

ROFF 

3094 

ROFF 

3095 

ROFF 

3096 

ROFF 

3097 

ROFF 

3098 

ROFF 

309* 

ROFF 

3100 

ROFF 

3101 

ROFF 

3102 

ROFF 

3103 

ROFF 

3104 

ROFF 

3105 

ROFF 

HOC 

ROFF 

3107 

ROFF 

3106 

ROFF 

3109 

ROFF 

3110 

ROFF 

3111 

ROFF 

3112 

AiLmiu  A.  A&AMb&fMu.jj  i  U  „  ml  Jit  s' ■  rfM-A  u*  Wv.Wt.ti  a.  jai  lA  wt  >4!  >Aa'  MJ>A  k&  XSw  ahfciiUiM!  A(a  AM&w '  tW&A*  jcj-tf  W^<l''5rl  t*  i&tiWliL  llil  iiVtl’Sd  tUlli.Jtkl 


AFWL-TR-72-H9 


0Xb 

a  36 

SB* 

£Q 

0x2 

SB3 

LX1 

-X2 

0X6 

SA6 

584 

>se> 

1x6 

£Q 

8X6 

3  06 

UX1 

504 

£Q 

3X2 

4X1 

«-X2 

0X6 

586 

564 

IQ 

3X2 

>84 

566 

4X2 

0X6 

£Q 

5A1 

504 

3X2 

506 

4X1 

-X2 

3X6 

£Q 

3X2 

4X1 

506 

cX2 

504 

3X6 

5A6 

1X6 

£Q 

3X6 

584 

4X1 

58b 

:Q 

3X2 

584 

»K2 


•JUMP  N  a  6 


X3*X2 

06-87 

b2  ba  *84  *  SHIFT  COUNT  FOR  X5 

80,86, PCll  .JUMP  N  a  2 
Xi*X4 
03*87 
140 
148 
Xc*X2 
AO-07 
608 
8b-87 
0 

X4*X°,PC7  ,JUMP  N  a  4 

86-87 

148 

448 

80,86,PC7  • JUMP  N  a  6 

X1*X4 
148 
608 
X6*X2 
86-07 
30B 

80,86, PC7  .JUMP  N  *  4 

X1*X4 

148 

86-87 

448 

X2*Xc 

80,B6,PC7  .JUMP  N  a  jo 

J5*07  .RtAO  NEXr  H{JR0  QF  cmarac1 

X1*X4 

86-87 

148 

308 

X6*X2 

80.86,  PC7  .JUMP  N  a  I? 

X1*X4 

148 

86-87 

148 

608 

X2+X6 

J°  .STORE  SECOND  *ORO 

80.86,  PC10  .JUMP  N  *  14 
X1*X4 

448 

148 

e6»37 

80,36, PCI  0  . JUMP  N  «  16 

X  1*X4 
308 
608 


•JUMP  N  a  a 


.JUMP  N  a  io 

•RtAO  NEXT  WORD  OF  CHARACTERS 


.JUMP  N  a  12 


.STORE  SECOND  HORO 


ROFf 

3113 

ROFF 

3114 

RQFF 

3115 

ROFF 

3116 

ROFF 

311/ 

ROFF 

3118 

ROFF 

3119 

ROFF 

3120 

ROFF 

3121 

ROFF 

3122 

ROFF 

3123 

ROFF 

3124 

ROFF 

3125 

ROFF 

3126 

ROFF 

3127 

ROFF 

3128 

ROFF 

3129 

ROFF 

3130 

ROFF 

3131 

ROFF 

3132 

ROFF 

3133 

ROFF 

3134 

ROFF 

3135 

ROFF 

3136 

ROFF 

3137 

ROFF 

3138 

ROFF 

3139 

ROFF 

3140 

ROFF 

3141 

ROFF 

3142 

ROFF 

3143 

R  OFF 

3144 

ROFF 

5145 

ROFF 

3146 

ROFF 

3147 

ROFF 

3148 

ROFF 

3149 

ROFF 

3150 

ROFF 

3151 

ROFF 

3152 

ROFF 

3153 

ROFF 

3154 

ROFF 

3155 

ROFF 

3156 

ROFF 

3157 

ROFF 

3158 

ROFF 

3159 

ROFF 

3160 

ROFF 

3161 

ROFF 

3162 

R  OFF 

3163 

ROFF 

3164 

ROFF 

3165 

ROFF 

3166 

ROFF 

3167 

ROFF 

3168 

ROFF 

3169 

APWL-TR-72-13Q 


1 

38c 

Bc-37 

wXl 

148 

t 

t 

3X6 

X6+X2 

EQ 

80 , 36, PCI  0 

3X2 

A1*X4 

| 

uX2 

448 

E 

-- 

3X6 

X2*X6 

384 

143 

EQ 

80,80, PCI  0 

I  PC3 

3A4 

IX 

| 

3X2 

85 

f 

aX4 

80,  X4 

t 

5  A3 

IXCJR 

i- 

PX2 

80  ,X2 

aAl 

A4+37 

1 

3X4 

X4*X2 

| 

SA5 

A3+87 

| 

JX4 

80, X4 

f 

*X1 

80, XI 

\ 

1X6 

X44X3 

f 

3A6 

A3 

f 

3X1 

X2*X  1 

r 

*X6 

80, X6 

*? 

NX  6 

80,  X6 

JX1 

80, XI 

6 

1X7 

X5*X1 

P 

3A7 

A6487 

' 

PX7 

80, X7 

3A6 

XCU* 

l 

| 

VX7 

80, X7 

SA7 

A6+B7 

s 

EQ 

PLOT  1 

|  nr 

E 

_X5 

84, X5 

3X7 

83 

| 

3X6 

Xc*X5 

l 

SA6 

AO 

1 

3A0 

OATAH 

I. 

RJ 

POUT 

P 

EQ 

80 , 80, PC? 

E  PulJ 

SAO 

A0437 

4. 

3B3 

B3fa7 

| 

1  PC11 

EQ 

BO.dO, PC7 

SAO 

AC-87 

1 

EQ 

80,a0,PC7 

t  • 

.DISPLAY  CODE  TO  t 

|  D3CU 

JSS 

1 

k 

1X6 

0 

I 

3X2 

10 

NX3 

6 

1  oat 

3X4 

X1*X3 

| 

*.X4 

6 

z 

3A4 

X4+E83D 

| 

LX6 

6 

IT 

3X6 

X6>X4 

£ 

-XI 

6 

| 

1X2 

X2-X0 

| 

1Z 

X2.081 

.jump  n  *  .ta 

. N  -  20 

.UPDATE  CURRENT  X.  V  POSITIONS 


.EXIT 

.N  *  14,16,13.20 

.N  =  2 
XTERNAL  SCO  CONVERSION 

.CONVERT  TO  EXTERNAL  SCO 


ROFF 

3170 

ROFF 

3171 

ROFF 

3172 

ROFF 

3173 

ROFF 

3174 

ROFF 

3175 

ROFF 

3176 

ROFF 

3177 

ROFF 

3178 

ROFF 

3179 

ROFF 

3180 

ROFF 

3181 

ROFF 

3182 

ROFF 

3183 

ROFF 

3184 

ROFF 

3185 

ROFF 

3186 

ROFF 

3187 

ROFF 

3188 

ROFF 

3189 

ROFF 

3190 

ROFF 

3191 

ROFF 

3192 

ROFF 

3193 

ROFF 

3194 

ROFF 

3195 

ROFF 

3196’ 

ROFF 

3197 

ROFF 

3198 

ROFF 

3199 

ROFF 
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cQ  Bo.BO,(«a:o 

iSfJft  X«*2?JrtfA,;Uf5 oiH0  £RP0«  FLAG- INITIAL  GRAPH 
•A-XINIT,  8*YINI T ,  I*I&RR,  J*  ,  K*7 

0i  • R£AO  X  INITIAL 

82  .REAO  V  INITIAL 


PINT 

SA1 

81 

SA2 

82 

axe> 

XI 

3X7 

X2 

SAG 

XCUR 

SA7 

A6*3? 

JX6 

86, X6 

LX& 

86, X6 

JX7 

86, X7 

cX7 

B6,*7 

SAG 

IXCUR 
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BUFF 
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LT 
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£Q 
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LT 
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PINT  3 
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83 

Zff 
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3X7 

B7 

sr: 

6-.0O3 

1.x  ' 
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AO-87 

RJ 

POUT 

EQ 
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5X2 

MSG 

SX6 

1523078 

uXG 

52B 
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87 

NZ 

XI, OVER 

1X6 
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SAG 

87 

RJ 
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- 

LT 

80,86, NAME 

•  TiRMINATE  GRAPH-MRITi  ENO  01 

PTER 

SX5 
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RJ 

CALL 

:Q 

ploti 

SP3M 

SAl 

81 
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5X5 

20008 

SA3 

83 

5X6 

3001B 

SX7 

30618 

.JUMP  BUFFER  POINTER  FOUNO 


.EXIT  NO  PREAMBLE  SUPPRESSION 


.OUTPUT  PREAMBLE  SUP  CONTROL  WORD 
.EXIT 


.X5=STATUS*26B»E0R 
•PUT  UP  CIO  CALL 
.EXIT 

•SET  PLOT  SYMBOL  PARAMETERS 
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2  R 

X1.SP3H1 
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ROFF 
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.OUNP  BUFFER  ( 8UFFERE0  I/O) 

ROFF 
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RJ 
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CALLl 

CALl2 

M3RU1 

BUFFC 

BUFFO 

MiG 
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TRANSLATE  TAJ-E  E800IC  TO  LITTON  C30E  FOR  MTSI 
SUBROUTINE  WU92Q9  <103, LINE, LEN) 

WMTST  READS  r jRTRAN  OUTPUT  PILE  ON  TAPE1  AND  WRITES  MTST  COOES 
ON  TAPE2  FOR  CONVERSION  VIA  THE  LITTON  TAPE/MTST  UNIT, 


PROGRAM  8  Y  HARRY  N.  NURP-IY,  JR.,  *  rEORUARY  1972. 

MOOIFIEJ  17Fi j72  TO  PERMIT  WRITING  HJLTIPLE  NT  ST  CARTRIDGES. 
REVISEO  INTO  SUBROUTINE 

BY  LT.  CLIFFORD  £.  RHOADES,  JR.  25  FEBRUARY 

CONNON  LWOU/tOI 

COHNON  /BLK1/  LBY.tWP 

COHNON  /GO/  IIRZ,ITR(255) 

COHNON  /PAGES'  IPAGES , MES ( 51 

DIMENSION  KOlu  (13) ,  LINEU36) 

LOGICAL  OONE, SECOND, BKSL, GREEK 

DATA  <010/16313, 16048, 16* 08,  16443,16348, 16238,  16b OB,  162GB,  166 LB,  16 
170J/ 

DATA  DONE, SECOND, BKSL, GREEM. FALSE.,. FAwSE.,. FALSE.,. FALSE./ 

DATA  <PLS,KONi .KZR0/1H+ ,1H1,  IHO/ 

DATA  K8L/64/ 

OAT A  HCRC, MFC C ,MSTC, MSTX/161 OB, 16528,16548,16578/ 

2ATA  M8SP , H3_ K/lflSB, 16138/ 


ITRZ/i<*;il452d/ 
ITR(1)/I45414b53/ 
ITRUj/1,541472B/ 
ITR(3)/l,54i4b68/ 
ITRUl/l, 5414268/ 
ITR<6J/liil3/ 
ITR(c)/l -,5414528/ 
ITR(7//l,54t4u7d/ 
ITR(8)/l-*  5414138/ 
ITR( 9) /i *5414618/ 
ITR(i:|/lH5^l40ld/ 
ITR(li)/ 145^16018/ 
ITRU2I/14541441B/ 
ITR( 13) / 16138/ 
ITRT11,)/.  45  416373/ 
IT3(15)/i<.5*»14&58/ 
ITR<lb)/l454l452B/ 
ITRU7)' 145*14423/ 
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SUSR0UTIS£  WRT9209 

DATA  ITR(13)/i<t5-4l4623/ 
DATA  ITR(19)/l45414363/ 
DATA  ITR(2 J)/145414Q53/ 
OATA  ir«(2l)/1^54l4528/ 
DATA  ITR(22)/lol53/ 

OATA  ITR(23)/t45‘»1423B/ 
OATA  ITft(24)/l4541‘tc38/ 
OATA  ITR(2a)/l.»54l425B/ 
OATA  ITR(2b)/l45*1443S/ 
OATA  ITR (2 7) /l 4541643 8/ 
DATA  ITR(28)/l ‘♦5414378/ 
OATA  ITR(29)/  1h5-*14358/ 
OATA  ITR(3U)/ 145414528/ 
OATA  I TR( 31)/ 14541400 8/ 
OATA  ITR ( 32) / 145414203/ 
OATA  I TR( 033) / 145414223/ 
OATA  ITR ( 3 34) / 145414313/ 
OATA  ITR(035) /145414028/ 
OATA  ITR  1  336)  /  14541 4* 63/ 
DATA  ITRt 337) /145414458/ 
OATA  ITR(038) /145414713/ 
OATA  ITR(039) /145414368/ 
OATA  ITR< 3401  /145414333/ 
DATA  ITR (3 41) / 14541 40 3 3/ 
OATA  ITR (Ot 2) / 145414523/ 
OATA  ITR(3-*3)/  145414258/ 
OATA  ITR (3 ^4) / 14541 60 53/ 
OATA  ITRT345) /145414523/ 
OATA  ITRTQ-*6) /145414Q48/ 
OATA  ITRT047) /145414523/ 
DATA  ITR(0t3) /145414523/ 
OATA  1  TR  {  3-*9)  /  145414528/ 
OATA  ITR (3 53) / 14541 45 28/ 
OATA  1 TR ( 051) / 145414528/ 
OATA  ITR (052) / 14541 45 2 3/ 
OATA  ITR ( 353) / 145414523/ 
OATA  ITR(354) /14541452B/ 
OATA  ITR(J55) > 145414528/ 
OATA  I  TR  (  0v>6)  /  145414523/ 
U  A I  A  I  TR  ( v.  57)  / 145414523/ 
OATA  ITR (3 50) / 145416723/ 
OATA  I TR ( 359) /I 4541 45 2 3/ 
OATA  I TR(ObO) / 145414523/ 
OATA  I TR(Ool) / 14541 452 3/ 
DATA  ITR (Q 62) / 14541 67 18/ 
OATA  I TR(3b3) / 14541 452 3/ 
OATA  I TR (064) / 030316133/ 
OATA  ITR (365) / 145416653/ 
OATA  ITR(066) /145416723/ 
OATA  XTR(Jc7) /145416663/ 
OATA  ITR(360)/145416263/ 
OATA  ITR(0b9) /145416223/ 
OATA  1TR( 3  70) / 14541 6473/ 
OAIA  ITR(071)/145416373/ 
OATA  I TR (0 72) / 145416328/ 
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SUBROUTINE  HRT9209 

DATA  ITR(073) /145*16613/ 
OATA  I TR(0 74) / 000014633/ 
DATA  ITR(075) /000014413/ 
OATA  ITR(J76) /145414473/ 
OATA  ITRI077) /000Q147QB/ 
OATA  ITR(378)/Q000 14433/ 
OATA  ITR( J79) /14341440B/ 
OATA  ITR(jaO) /000014243/ 
OATA  ITR  (0  81) /14541c 03 3/ 
OATA  ITR (062) / 145416628/ 
OATA  1TR(383)/ 145416368/ 
OATA  ITR(384)  7145416058/ 
OATA  ITR(085) /14541&423/ 
OATA  ITR(066) 7145416358/ 
OATA  ITR(067) / 145416238/ 
OATA  I  TR(0  88) / 145416633/ 
OATA  ITR(389) <145416253/ 
OATA  ITR(093» /C00016018/ 
OATA  ITR (091) / 030014348/ 
OATA  ITR (092) /0C3014648/ 
OATA  ITR(093)/(J0J014303/ 
OATA  ITR (094) /Q000lc278/ 
OATA  ITR(0 )5) /0000 16733/ 
OATA  ITR(u96) /GO 00 16733/ 
OATA  XTR(097)/o00016373/ 
DATA  ITR( 098) ^145416 313/ 
OATA  £TR(u99) /145416028/ 
OATA  ITR(IOO)/ 145416468/ 
OATA  ITR(lCl) /14541645B/ 
OATA  ITR(1C2)  / 145416718/ 
OATA  ITR (1631  / 14541 6 068/ 
OATA  ITR(104)/145<»16333/ 
OATA  ITR (10 5) / 1454160 03/ 
OATA  ITR(106) / 195414523/ 
OATA  ITR(lC7)/0C00lcc78/ 
OATA  ITR(1Q8)/ 000014203/ 
OATA  ITR(lw9) /00001473B/ 
OATA  ITR(llfi) /145414038/ 
OATA  ITRU1U/Q0Q014378/ 
OATA  ITR(112) /145414308/ 
OATA  ITR(li3)  / 1*54 143  <*8/ 
OATA  ITR(114)  / 14541  <+73 3/ 
OATA  ITR(li5)/1454l6733/ 
OATA  ITR(H6) /145414703/ 
OATA  ITR(117) /145414203/ 
OATA  ITR (118) t 145414608/ 
OATA  1TR(119) / 145414248/ 
OATA  ITR(120) '145414648/ 
OATA  ITR(121)/ 145414673/ 
OATA  ITR(122)/000014278/ 
OATA  ITR(123) / 000014448/ 
OATA  ITR(124)/000014438/ 
OATA  ITR (125) <000016213/ 
OATA  ITR(126) /90Q016438/ 
OATA  ITR(127) /000014218/ 
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SUBROUTINE  RRT9209 

1  OATA 

ITRU28X145416218/ 

ROFF 

• 

3611 

1  OATA 

ITRH29) / 0000 16653/ 

ROFF 

3612 

R  OATA 

ITR  (130X60  00167  28/ 

ROFF 

3613 

£  DATA 

1TR(131) / 000018668/ 

ROFF 

3614 

1  OATA 

ITR(132) / 00 001626 3/ 

ROFF 

3615 

1  OATA 

ITR(133) /CO  0016223/ 

ROFF 

3616 

g  OATA 

ITR(134X00001e478/ 

ROFF 

3617 

1  JATA 

ITR (135) / 00 0018078/ 

ROFF 

3618 

1  DATA 

ITR(136) / 00 0016323/ 

ROFF 

3619 

1  DATA 

ITR(137) /G00016618/ 

ROFF 

3620 

I  OATA 

m(l38X145414528/ 

ROFF 

3621 

1  OATA 

ITRU39X145414523/ 

ROFF 

3622 

k  OATA 

ITR(i40X 145414523/ 

ROFF 

3623 

1  DATA 

ITR(  1*1)  /145414528/ 

ROFF 

3624 

l  DATA 

ITR  (142) / 145414528/ 

ROFF 

3625 

?  OATA 

ITR(1*3)  / 145414523/ 

ROFF 

3626 

i  DATA 

ITR(l44Xl45414213/ 

ROFF 

3627 

t  OATA 

ITR(1h5X16338/ 

ROFF 

3628 

|  OATA 

I TK  ( 14ft) / 16820/ 

ROFF 

3629 

t  OATA 

ITR(l47Xlc3cB/ 

ROFF 

3630 

'•  OATA 

ITRUhOI /1605b/ 

ROFF 

3631 

OATA 

ITR(i*9)  /16428/ 

ROFF 

3632 

OATA 

ITR(15C> / 16353/ 

RUFF 

3633 

?  OATA 

ITR(151X16238/ 

ROFF 

3634 

P  OATA 

ITR(152X16638/ 

ROFF 

3635 

OATA 

ITR( 153X 16258/ 

ROFF 

3636 

f  OATA 

ITRf 1^h> / 14541 452 8/ 

ROFF 

3637 

F  OATA 

ITR(i55X 145414523/ 

ROFF 

3638 

1  OATA 

ITR (156* / 14541 45 2 8/ 

ROFF 

3639 

f  OATA 

ITR  (15  7) / 145414528/ 

ROFF 

3640 

OAI A 

I TR(lji) /14541452B/ 

ROFF 

3641 

1  OATA 

ITR  ( 159) / 145414528/ 

ROFF 

3642 

1  OATA 

ITRdiOJ  /145414528/ 

ROFF 

36*3 

1  OATA 

ITR { 161) / 14541641B/ 

ROFF 

3644 

OATA 

ITR (1021/16318/ 

ROFF 

36  h5 

r  OATA 

ITR(  lt>3) / 16028/ 

ROFF 

3646 

F  OATA 

I  TR  ( lc  4X IchcB/ 

ROFF 

36*7 

?  OATA 

ITR(lt>5) /1645b/ 

ROFF 

3648 

1  OATA 

I TR ( tub) / lo71B/ 

ROFF 

3649 

•  OATA 

ITRU67I  /16J6B/ 

ROFF 

3650 

1  OATA 

ITR (166) / 16338/ 

ROFF 

3651 

OATA 

ITR(169» /16006/ 

ROFF 

3652 

i  07  T  A 

ITR(17QX 145414528/ 

ROFF 

3653 

;  OA  A 

ITR(iri) /145414528/ 

ROFF 

3654 

OATA 

ITR(172) /145414520/ 

ROFF 

3655 

OATA 

ITR(17  3X1454 14523/ 

ROFF 

3656 

?  OATA 

ITR(174X 145414523/ 

ROFF 

3657 

:  OATA 

ITR(175X 145414523/ 

ROFF 

3658 

OATA 

ITR(176> /145416338/ 

ROFF 

3659 

l  OATA 

ITR (177) /14541c 043/ 

ROFF 

3660 

1  OATA 

ITR(178)/I454l6f08/ 

ROFF 

3661' 

1  PATA 

ITR ( 179) /14541644B/ 

ROFF 

3662 

OATA 

ITR(laO) /14:>t6343/ 

ROFF 

3663 

OATA 

ITR (181) / 145416203/ 

ROFF 

3664 

OATA 

ITR (182) / 145416603/ 

ROFF 

3665 

k 
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iUaRGUTlNi  RRT9209 

DATA  ITR(ld3X14541c«2  4B/ 
DATA  ITR(1S4X  145416640/ 
OATA  ITR(185X14S4i67Q3/ 
DATA  ITR  (186) < 145416673/ 

DATA  ITR(157X000014048/ 
DATA  ITR(188X145416373/ 
DATA  lTR(ia9XQ000l6043/ 
OAIA  ITR(190) 7145414278/ 
DATA  ITR(  191) < 143414228/ 
OATA  ITR ( 192) < 145414448/ 
DATA  ITR (193) 7 C 00014658/ 
OATA  ITR (194) 7000014728/ 
OATA  ITR (195) <000014663/ 
OATA  ITR ( 196) < 000014268/ 
OATA  ITR (197) 7000014223/ 
OATA  ITR (198) 7000014478/ 
OATA  ITR (199)  <000014078/ 
OATA  ITR (20 OX 000014328/ 
OATA  ITR (2 01)  1000014613/ 
OATA  ITR(202)  <145414528/ 
OATA  ITR(203X  145414523/ 
OATA  ITR(204)  <145414528/ 
OATA  ITR (205)/ 145414528/ 
OATA  ITR(206)/145414528/ 
DATA  ITR (2 07)/ 145414523/ 
OATA  ITR(208) /14541434B/ 
OATA  ITR(2u9) / 0000140 33/ 
-OATA  ITR(210) / 000014623/ 
OATA  ITR(211)/0QQQ14363/ 
OATA  ITR (212) /00 00 14053/ 
OATA  1TR(213) / 000014428/ 
OATA  ITR (2 14) / 00 00 14358/ 
OATA  ITR(215) / 00001 4238/ 
OATA  ITR (21c) / 000014638/ 
OATA  ITR(217)/000014258/ 
OATA  ITR(218) <145414528/ 
OAIA  ITR(219) <145414528/ 
OATA  ITR(220) <145414523/ 
O^TA  ITR(221) <145414528/ 
OATA  ITR(222>  <145414528/ 
OATA  I TR(223t <145414523/ 
OATA  ITR (224) <145414523/ 
OATA  ITR(225) <145416278/ 
OATA  ITR (226) <000014318/ 
OATA  ITR (227) <000014023/ 
DATA  ITR(228) <000014468/ 
DATA  ITR(229) <000014453/ 
OATA  ITR (2 30X00001 47 13/ 
OATA  ITR(231) <000014068/ 
OATA  ITR(232) <000014333/ 
OATA  ITR (233) <000014003/ 
OATA  ITR(234) <145414528/ 
OATA  ITR(235X 145414528/ 
OATA  ITR(236> <145414523/ 
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ROFF 
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3700 
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3701 
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3702 

ROFF 

3703 

ROFF 

3704 

ROFF 

3705 

ROFF 

3706 

ROFF 

3707 

ROFF 

3708 

ROFF 

3709 

ROFF 

3710 

R  OFF 

3711 

ROFF 

3712 

ROFF 

3713 

ROFF 

3714 

ROFF 

3715 

ROFF 

3716 

ROFF 

3717 

ROFF 

3718 

ROFF 

3719 

ROFF 

3720 
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SU0R3UTINE  MRT92Q9 


OATA  ITR(237>/145414528/ 

DATA  I TR(230) 7145414528/ 

DATA  ITR(239> <145414528/ 

DATA  I TR( 2 49) <0000 163 OB/ 

OATA  ITR(24ll 7000016363/ 

OATA  1TR(2h2) <000016408/ 

OATA  ITRI243)  <000016448/ 

OATA  1TR( 244) <600016348/ 

OATA  ITR <245) <000016203/ 

OATA  ITR<246> <000316608/ 

OATA  1TR(247) <  600316243/ 

OATA  ITR<240) <000016648/ 

OATA  1TRC249) <000016708/ 

OATA  1TR( 250) <145114528/ 

OATA  ITRT251) <145114528/ 

DATA  1TR(252) <145114528/ 

OATA  1TR<253) <145114528/ 

OATA  ITRC254) <145114528/ 

DATA  1TR<255) <145114528/ 

OATA  NE5/ J£ri  NUMBER  OF  ROFF  PAGES  PRINT-0  / 

DATA  MtSl5)/3< 

OATA  IPAG£S/0< 

IF  (SECONO)  33  TO  2 

SECOND*. TRUE. 

REWIND  9 
ENO  FILE  9 

■* 

DO  1  1*1.15 

1  LMO(I) *165119311651165116513 

■4 

L MO (16 1 3 16511 5 51 16511 6511 &76B 
lHO(17)*1676tc 76 1676167616753 
L MO (18) *16 761 5 76 167616761 6 76 3 
LMO (19) *10/613761676167616038 
LMO (20) *16001600160 016001600 8 
LMO (21) *16001- 001600160016038 
LMU(22) *160013001600160016003 
LM0(23) *160016001600160016008 
LMO (24) *16001500160 0161 01 4658 
L MO (25) *16301630 1630160416573 

NCART=1 
NMTST*0 
NMTSTS*3 
L8Y*0 
LMP*26 

MAIN  LOOP  STARTS  RE  RE. 

8KSL*. FALSE. 

OBTAIN  OUTPUT  LINE  AND  SEARS .3  FOR  CARRIAGE  CONTROL 
IF  (ICG.Ea.K3NE)  GO  TO  14 


ROFF  3721 
ROFF  3722 
ROFF  3723 
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SUBROUTINE  WRT9209 


IF  UCC.Ea.KawS>  60  TO  t. 

If  (IC C.NE.KZHO)  GO  TO  3 

l  HAVE  ZERO  CARRIAGE  CONTROL  CHARACTER.  WRITE  CR  AND  PEE 0  COOES. 

CALL  PACK  (HCRC) 

CALL  PACK  (NrOc) 

3  CALL  PACK  (HCRC) 

CALL  PACK  (HrOC) 

GO  TO  5 


-  BACKSPACE  WHOLE  LINE 

*  I0HAX=IHAX 
8KSL*. TRUE. 

■* 

\  SCAN  LINE  FOR  LAST  NON  BLANK  CHARACTER. 

<# 

3  CONTINUE 

IF  (LEN.LT.l)  GO  TO  13 
I*LEN*1 
3  1*1-1 

IF  (LI N£( I) .HE .K3L)  GO  TO  7 
IF  (1-I|  6,13,13 
T  INAX*I 

IF  (.NOT . BKS.)  GO  TO  9 
If  (IOHAX.LT. 1)  GO  TO  9 

■* 

00  S  1*1, IOHAX 
3  CALL  PACK  (H3SP) 

* 

C  TRANSLATE  FROH  EBCDIC  TO  HTST  COOE. 

V 

3  CONTINUE 

00  12  1*1,  IHA:. 

J*LlN£  ( I) 

J*ITR»U) 

IF  (J.EO.HBLO  GO  TO  11 
IF  (GREEK. ANO.J.LT. 609b)  SO  TO  10 
IF  (GREEK)  GO  TO  11 
IF  ( J. LT. *»39i )  GO  TO  11 
CAlL  PACK  (HSTC) 

GREEK*. TRUE. 

00  TO  11 

10  CALL  PACK  (HSTC) 

GREEK*. FALSE. 

11  CALL  PACK  (J) 

12  CONTINUE 

t3  CONTINUE 

IF  (LMP.LT.3SbB)  RETURN 

C  LMO  BUFFER  FULL. 

CALL  PACK  (HCRC) 
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ROFF 
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ROFF 

3792 

ROFF 

3793 

* 

ROFF 

3794 

1 

ROFF 

3795 
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ROFF 

3798 
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ROFF 

3799 

% 

ROFF 
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$ 

ROFF 
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ROFF 

3802 

| 

ROFF 

3803 

ROFF 

3804 

ROFF 

3805 

15 

K 

ROFF 

3806 

ROFF 

38C7 

ROFF 

3808 

ROFF 

3809 
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ROFF 
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| 

ROFF 
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ROFF 
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ROFF 
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ROFF 
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ROFF 
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1 

ROFF 

3817 

I 

ROFF 

3818 

3 

ROFF 

3819 

J 

ROFF 

3820 

a 

ROFF 

3821 

ROFF 

3822 

1 

ROFF 

3823 

1 

ROFF 

3824 

1 

ROFF 

3825 
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ROFF 
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ROFF 
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1  i 
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ROFF 
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ROFF 
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AFWL-TR-72-139 


SUdR'JUTINE  WRT9209 


J 

ROFF 

3S31 

* 

END  CURRENT  *;C£>RD. 

ROFF 

3032 

*# 

ROFF 

3833 

14 

IF  (LOY.Ea.4)  GO  TO  15 

ROFF 

3034 

CALL  PACK  (H-)C> 

ROFF 

3035 

GO  TO  1-* 

ROFF 

3036 

<s 

ROFF 

3837 

> 

* 

INSERT  STOP  CDOE  ANO  FLUSH  3JFFER. 

ROFF 

3838 

■+ 

ROFF 

3039 

15 

»PACES*IPAG£S*1 

ROFF 

3840 

DO  16  1=1,5 

ROFF 

3041 

16 

CALL  PACK  (NORC) 

ROFF 

3842 

CALL  PACK  (N5TC) 

ROFF 

3843 

•% 

«# 

ROFF 

3044 

SUFFER  OUT  0,1)  (LMD(1),LH3(LHP)) 

ROFF 

3045 

IF  (UNIT ( 9) )  17,17,17 

ROFF 

3046 

ROFF 

3847 

i7 

NHTST=NNIST*S»LMP 

ROFF 

3040 

ROFF 

3849 

L MO (24) =16 JQio 00 169 01 63 016 03 3 

ROFF 

3050 

LMU (25) =16001500163 0160 016133 

ROFF 

3851 

•» 

«# 

ROFF 

3052 

• 

LBY*0 

ROFF 

3653 

LMP=2b 

RCFF 

3854 

IF  (GONE. OR. (NNTST.GT. 13312))  GO  TO  IS 

ROFF 

3855 

•# 

ROFF 

3856 

NOT  Yt  T  DONE 

ROFF 

3057 

■* 

ROFF 

3858 

GO  TO  5 

ROFF 

3059 

* 

ROFF 

3860 

■* 

ROFF 

38cl 

WRITE  LAST  RECORJ. 

ROFF 

3062 

■* 

ROFF 

3363 

is 

LMO (26) *165415370000000030038 

ROFF 

3864 

+ 

ROFF 

3865 

SUFFER  OUT  0,1)  (LMO ( 1) ,  LH3  (2fc)  ) 

ROFF 

3866 

IF  (UNIT ( 9) )  19,19,19 

ROFF 

3867 

4 

ROFF 

3860 

19 

ENO  FILE  9 

ROFF 

3869 

NNTST*NHTSTU»0 

ROFF 

3070 

CALL  OZSPLA  ( 19HMTST  CHAR  MRITTEN  =,RNTST) 

ROFF 

3071 

IF  (OONE)  GO  10  23 

ROFF 

3072 

■* 

ROFF 

3073 

* 

NOT  OONE.  PRLPAR •  PROLOGUE  FOR  NEXT  NTST  CARTRIOGE. 

ROFF 

3874 

a 

ROFF 

30^5 

NNTSTS*NHTST5*NHT3T 

ROFF 

3876 

NNTST*0 

ROFF 

3877 

NCART*NCARTU 

ROFF 

3870 

I<*=HOO  (NCAKT,  10)  4i 

ROFF 

3879 

I3=N00 (NCART/ 10, 10)  *1 

ROFF 

3080 

I2*MQQ (NCART7 100,16)  +1 

ROFF 

3081 

Il*N00 (NCART7 1000, 10)  *1 

ROFF 

3802 

LMU (24) *1 c 901 r 031c  GO 16 101 4653 

ROFF 

3003 

L8Y*0 

ROFF 

3884 

LMP*25 

ROFF 

3085 
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SUBROUTINE  KRT9209 

CALL  PACK  (KOIG(Il) ) 

CALL  PACK  (K31GU2)J 

ROFF 

CALL  PACK  <K3IG(I3>) 

ROFF 

CALL  PACK  (tOIGUV)) 

RCFF 

CALL  PACK  <NSrx> 

ROFF 

2 

ROFF 

RETURN 

ROFF 

«# 

□ONE.  NRITE  SECOND  ENOFILE,  REMIND  TAPE 9  AND  QUIT. 

ROFF 

«* 

«* 

ROFF 

ROFF 

10 

END  file  9 

ROFF 

KEMINO  9 

ROFF 

•0 

ROFF 

RETURN 

ROFF 

0 

ROFF 

entry  fin 

ROFF 

DONE*. TRUE. 

ROFF 

IPAG£S*IPAG£S-1 

ROFF 

GO  TO  14 

ROFF 

0 

ROFF 

END 

ROFF 

ROFF 

j 


3006 

3037 

3000 

3009 

3090 

3091 

3092 

3093 
309k 

3895 

3896 

3897 

3898 

3899 

3900 
3961 

3902 

3903 

3904 

3905 

3906 
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IOEYT  PACK  ROFF  3907 

PROGRAM  LENGTH 

BLOCKS 

PROGRAM*  LOCAL 
//  COMMON 

3LK1  COMMON 

ENTRY  POINTS 


OGOOOl  *AC< 


ENTRY 

PACK 

ROFF 

3908 

ROFF 

3909 

SUBROUTINE  PACK  (MOROI 

ROFF 

391C. 

*AC<S 

5  12-BIT  BYTES  IN  LMO(LNP). 

ROFF 

3911 

ROUTINE  BY  HARRY  M. 

MURPHY*  1  FEBRUARY  1972. 

ROFF 

3912 

REVISEO  FOR  ?TN  BY 

LT.  CLIFFORO  E.  RHOADES*  JR 

• 

ROFF 

3913 

26  rE 

BRUAKY  1972 

ROFF 

3914 

ROFF 

3916 

JSE 

// 

ROFF 

3916 

(.MO 

3SS 

3710 

ROFF 

3917 

JSE 

/BLK1/ 

ROFF 

3918 

ldv 

3SS 

1 

ROFF 

3919 

lmp 

3SS 

1 

ROFF 

3920 

JSE 

0 

ROFF 

3921 

ROFF 

3922 

VFO 

«.2/4LP4CK,18/l 

ROFF 

3923 

PS 

ROFF 

3924 

SA1 

XI 

.XI  *  MORO. 

ROFF 

3925 

MXO 

44 

.FORM  48-BIT  MASK  IN  UPPER 

xo. 

ROFF 

3926 

SA2 

LBY 

. X2  *  LBY,  THE  BYTE  COUNT. 

ROFF 

3927 

SB3 

5 

•  83  *  5# 

ROFF 

3928 

3X1 

-X0*X1 

.MASK  OUT  POSSIBLE  HIGH-ORDER  BITS  IN  XI. 

ROFF 

3929 

SB2 

X2 

.32  *  LBY. 

ROFF 

3930 

S86 

LMO-1 

.86  *  AOORESS  OF  LMOtO) . 

ROFF 

3931 

SB7 

1 

.87  a  1, 

ROFF 

3932 

LT 

B2 *83*50 

.IF  LESS  THAN  5  BYTES  SKIP 

ON. 

ROFF 

3933 

SA3 

A2*B7 

.OTHERMISE,  GET  LMP  IN  X3. 

ROFF 

3934 

SX6 

X3*B7 

.INCREMENT  LMP  IN  X6. 

ROFF 

3935 

SA6 

A3 

.RE-STORE  INCREMENTED  LMP. 

ROFF 

3936 

5X2 

BO 

.ANO  SET  LBY  TO  ZERO. 

ROFF 

3937 

CO 

5  A3 

•X3  *  LMP. 

ROFF 

3938 

SA4 

X3»Bb 

•X4  *  LMO(LMP) . 

ROFF 

3939 

LX4 

12 

.LEFT  SHIFT  X4  1  BYTE. 

ROFF 

3940 

SX7 

X2*87 

•INCREMENT  BYTE  COUNT. 

ROFF 

3941 

3XS 

X0*X4 

.MASK  OUT  LONER  12  BITS  OF 

LMDClWP) . 

ROFF 

3  942 

SA7 

A2 

.STORE  CURRENT  BYTE  COUNT. 

ROFF 

3943 

3X6 

X1*X5 

.SPLICE  IN  MORO. 

ROFF 

3944 

SA6 

A4 

.STORE  UPDATEO  MORO  IN  LMO(LMP). 

ROFF 

3945 

2R 

BO  ,PAC< 

.AND  LOOP  TO  RETURN. 

ROFF 

3946 

END 

ROFF 

3947 

U NOS£l)  STORAGE  41  STATEMENTS  9  SYMBOLS 
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SUBROUTINE  QUIT 

SUBROUTINE  QJiT  (IOUN) 

DIMENSION  NESC5) 

COMMON  /TAPE/  ITAPE 
COMMON  /FRAME/  I FRAME 
COMMON  /CAROS/  NC»HI(5) 

COMMON  /PACES/  IPASE»ME(s» 

DATA  MES/3 jH  MUMdER  OF  FRAMES  SHOT  Bf  ROFF/ 
DATA  NEU>/0/ 

DATA  MlUi/0/ 

OATA  MESUJ/j/ 

IF (ITAPE. £Q,1)  CALL  FINIO) 

CALL  OISPLAMItNC) 

CALL  0ISPLA(1iS,IFRAM£) 

CALL  OISPLAIM  - *IPAI*E) 

RETURN 

END 
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